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1311 DI/^GNOSTIC TEST 0022 
FAULT ISOIATION 

A. SCOPE; 

This test was designed primarily to detect and isolate malfunctions 
in the operation and control of ihe 1311 Disk Storage Drive and 
requires that the CE Disk fack, v4th test data written of cylinder 97 
by DT 0021, be on the Disk Storage Drive. 

The detection and isolation portion of the test checks the write 
operations; therefore, precautions should be taken to protect 
customer packs installed on multiple module systems. 

The C.E. Pack may be on any module of a multiple module system, 
but the addresses must be 00000-19999. These must be written 
with DT 0020., 

It checks the seek operation, read, write, and read back check 
(with and without wrong length record check) operations . It also 
checks that the error indicators, address check, overflow, wrong 
length record check, and any file, are functioning properly. 

The test also contains a routine to verify that the addresses on 
a cylinder are correct. Since the only file instructions used by 
this routine are seek and read full track, this routine may be used 
with a customer's disk pack; however, CAUTION SHOULD BE 
EXERCISED not to enter the detection and isolation portion of the 
test while the customer's disk pack is on the Disk Storage Drive. 

B. SET UP ; 

1. While running the test, the program switches have the following 
functions: 



Switch 


1 


ON 


Bypasses error typeouts 






OFF 


Allows error typeouts 


Switch 


2 


ON 


Loops routine 






OFF 


Pioceeds to the next routine 


Switch 


3 


ON 


Halts on error 






OFF 


Bypasses halt on error 


Switch 


4 


ON 


Loops test 






OFF 


Test Completion, Halt 



2. Switch 3 has two additional functions during the set up phases. 
One function is to insure that the CE Disk Pack has been installed, 
and the other is to allow corrections if an error is made while keying 
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In data from the console typewriter. 

After the name of the test i^ typed out, the instructions to remove all 
customer packs and turn switch 3 on are typed out. The program re- , 
mains in a loop, branching to an instruction that checks switch 3/ 
until switch 3 is turned on. Additional Instructions (switch functions, 
etc.) are typed out after switch 3 is turned on. Switch 3 must be 
turned off to permit the entry of keyed in data; since switch 3 is the 
correction switch. 

To make coixections when keying in data from the typewriter, turn 
console switch 3 on, press release and start. Then turn switch 3 off 
and key in data again. 

3. File Switches 

WRITE ADDRESS SWITCH — OFF 
COMPARE DISABLE SWITCH — OFF (IN) 

4. Normal setting of 1620 Console Switches 

Program Switches — AS DESIRED 
Data Switches Program 

5. The user should insure that the PACK ON and READY lights on the 

Disk Storage Drive are ON. 

6. LOADING PROGRAM 

A. Clear core by inserting and executing 31 00003 00002 

B. Paper Tape input 

1. Load tape in reader 

2. Insert and execute 36 00000 00300 

3. After paper tape has loaded core, depress computer start, 

4 . Follow typed out instructions • 

C. Card Input 

1. Place cards in read hopper 
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(2) Place 1620 in manual mode 

(3) Depress load key 

(4) Depress computer start after cards have loaded 
core 

(5) Follow typed out Instructions 

DETAILED EXPLANATION; 

This test was designed to detect and isolate malfunctions in 
the 1311 Disk Storage Drive Units. Tne messages typed out 
whenever a malfimction is detected will indicate the symptoms 
of and the function being performed when the malfunction 
occurred. Some malfunctions may cause "hang-ups. " This 
is still a detection and proper utilization of the console indicators 
and the instruction being perfomied should provide information 
for a diagnosis of the malfunction. 

To aid in the diagnosis of the malfunction, this test has been 
designed in routine form, each routine performing some logical 
function. These routines are: 

Control Routine 

Address Check Routine 

Locate a Properly Functioning Head Routine 

Check Seek Routine 

Read and Head Test Routine 

Check Disk Operations Routine 

Overflow and Wrong Length Record Check Routine 

tPN 2161822 
EC 404860A 



sDl 0022 
Page 4 



Any File and Any Data Check Routine 
Read Only Address Routine 
Test Compolete Routine 
Error Routine 
Reset VRC Routine 



The Control Routine is comprised of a group of routines to 
type the name of the test, swtich setUngs, pertinent instructions 
regarding the operation of the test; to allow the keying in of 
essential information for proper operation of the test; to 
compute the drive code digit and store it in the Disk "^ontrol 
Field (sub-instruction,. 

The input entered during the execution of 
the Control Routine is: 

1. Yes or No, entered from the console typewriter in 
answer to the question "Check Flag Address, Type 
Yes or No. " Enter YES, if the Read-Only operation 
is to be checked. This routine will also check that 
addresi^s which are not sequential and incremented by 
one, will turn on the Address Check Indicator 

2, One digit Module number, entered from console 
typewriter indicating the Disk Drive Unit on which 
the CE Pack is installed. 

After the module number has been entered, the drive 

code digit is computed and stored in the F digit of the' 

■ o ■ 
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disk Control Field sub instructions. The calculation 
of the drive code gives the following results: 
Mod\3le No. Drive Code 

0 1 

1 3 

2 5 

3 7 

Once the Control Routine has been executed, all the 
necessary initialization and "housekeeping" has been 
accomplished, the actual checking cam be performed. 

The Address Check Routine checks for proper operation 
of the Address Check Indicator. This indicator must be 
fimctioning properly to be used to help diagnose mal- 
fimctions. A seek of cylinder 97 is executed; then an attempt 
to force on the Address Check Indicator is made by 
reading sector 00000. If the address check is forced 
on, then a program check is made to verify that the 
access mechanism was positioned at cylinder 97. This 
can be done by reading a full track and checking the 
address read. If the address check is not forced on by 
reading sector 00000, a program check is made that 
addresses can be read from the Disk Storage unit into 
the 1620 core storage, whether the correct Disk Storage 
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Drive unit was selected, and whether or not the 
arm was positioned ^t cylinder 97. The results 
of this program analysis is tp ed out and the 
routine repeated until an address check is forced 
with the arm at cylinder 97 and sector 00000 being 
read. 

The"Locate a Properly Functioning Head Routine" 
is executed after the proper verification of the 
iddress 'Jheck Indicator. This routine determines 
which head will be used to verify that the seek 
commands are functioning properly. A read 
numeric sector without wrong length record check 
instruction is executed. The parity indicators 
Bead .Check, MERE, MBRO, and Mdress Check are 
interrogated. These must be off for proper 
operation. If any of these indicators are on, a 
malfunction is indicated. The first digit of the 
sector read is checked to see if it compares with 
the digit that selects that head. These two digits 
must be the same for proper operation. If these 
checks indicate correct operation, this head is 
used to check the seek commands. This check starts 
with head zero and continues through the heads until 
the first properly functioning head is located. If 
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a good head is not located out of the ten possibfe, 
the routine is repeated until a good head is found. 

The Check Seek Routine accesses to cylinders 11, 
22, 33, 44, 55, 66, 77, and 88, After the seek 
command has been executed a read numeric 
sector without wrong length record check is 
executed. The Address Check ^idlcator is then 
interrogated. If the indicator is on, a malfunction 
has been detected and an error message is typed 
out. The message will include the cylinder number 
at which the access mechanism is positioned. 
This cylinder number is calculated by first 
executing a read disk track numerically and then 
operating on the first five digits read into the 1620 
core storage. 

The Read and Head Test routine checks for correct 
operation of the read amplifier and all heads. To 
do this the test data that was written on cylinder 97 
of the CE Disk Pack by DT 0021 is generated and 
stored in the 1620 core storage area labeled Al. 
Then a seek command is executed to position the 
access mechanism at cylinder 97. A check is made 
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that cylinder 97 was reached by interrogating Any 
Data check to see that it is off (indicating no parity 
checks) and by reading a sector with an address on 
cylinder 97 and verifying that no address check 
results. Then a read in area, labeled A2, is 
set to zero. The first record of the track Is read 
into the read in area A2 and a check made that no 
parity check indicators were turned on. Then 
a program compare is made that the data read 
in compares with the generated data in area Al, 
If not, an analysis is made to see if the data or 
the head number is correct, and the appropriate 
error message is typed out. This procedure is 
repeated until the first record of all ten tracks on 
cylinder 97 have been read. 

The Check Disk Operations Routine is comprised 
of several smaller routines. The first of these 
smaller routines test the read track with and 
without wrong length record check operations* 
Then the write disk numericafly with and without 
wrong length record check and the read back check 
operations are tested in the next four smaller routines. 

The read track without wrong length record check 
is performed on cylinder 97 by executing a read 
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disk numerically using the good head found in 
the Locate a Properly Functioning Head Routine 
verifying that no parity checks were turned on, and 
perforning a program compare of the last address, 
if any of these checks give a negative result, the 
appropriate error message is typed out. If the 
results indicate proper operation, the routine is re- 
peated for all heads using the read disk numerically 
with wrong length record check instruction. T^p 
same tests are made on the parity circuits and 
comparing the last address. Appropriate error 
messages are typed out if a malfunction is indicated. 

The write amplifier and the write and read back 
compare instructions are tested on cylinder 03. First the 
access mechanism is given a seek command to 
position it at cylinder 03, Verification that it reached 
cylinderOS is made by interrogating the hny data check 
after the seek operation and performing a read disk 
numerically without wrong length record check to 
see that no address check occin's. Once the 
access mechanism is positioned all heads starting 
with 0 and ending with 9, are used to write the 
test data on their respective tracks using the write 
Disk Numerically v/ithout Wrong Length Record check 
instruction. The Check Disk Numerically and a 
program compare of the data read into core storage 
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with a Read Disk Numberically instruction are 
used to verify that the data was actually written^ 
The parity check circuits are interrogated after 
each Disk Storage Operation. Appropriate error 
messages are typed out df any malfunctions are 
detected. 

After head 9 has checked in the Without Wrong 
Length Record Check mode, zeros are written 
on all tracks of cylinder03. A Check Disk 
Numerically comma,nd is used to verify that the 
zeros were written on each track. 

After the tracks on cylinder 03 have been set to 
zero, the test data is written on cylinder 03 using 
the Write Disk Numerically with Wrong Length 
Record Check mode. The Check Disk Numerically 
with Wrong Length Record Check and the program 
compare of the data written are performed for 
each track to verify correct operation. Appropriate 
error messages are typed out whenever malfunctions 
are detected. 

The overflow and Wrong Length Record Check 
Routine is entered upon completion of the Check 
Disk Operation Routine. This routine checks that 
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Overflow and Wrong Length Record (WLR) Check 
indicators can be turned on and they in turn turn 
on the any File Check. An attempt is made 
to turn on the Overflow In dicator by reading 21 
sectors from the bottom track of cylinder 03. ITie 
Aiy File and the Overflew Indicators are interrogated, 
and appropriate error messages are typed out if 
one or the other or both are off. If both indicators 
are on, the routine to test the WLR Check 
indicator is entered. 

Three attempts are made to turn on the WLR Check 
Indicator. The first attempt is by writing a 
sector, changing a digit in the write data and I hen 
executing a Check Disk Numerically with 
Wrong Length Check against this altered data. 
The Any File and WLR Check Indicators are 
interrogated for being on. If they are off, appropriate 
error messages are typed out. The next two attempts 
to turn on the WLR Check indicator are made by 
the placement of the group mark. The first 
of these attempts is made with the group mark located 
such that it is detected before the 100 character 
sector is read. The second is if the group mark 
is detected after more than 100 characters are read. 

After each of these attempts, the Any Check and WLR 
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indicators are interrogated, and the appropriate 
error message typed out if they are not on. The 
last check of the WLR Check indicator is a test 
to determine that it is not turned on when the 
group mark is located properly. 

The Address Check Indicator is turned on by 
reading a sector not on the cylinder at which the 
access mechanism is position. A check is made 
that the Any File and The Any Data Check Indicators 
are on. If they are not, the appropriate error 
messages are typed out. 

The Read-Only Address Routine is entered only if 
yes was keyed in during the execution of the Control 
Routine when the question is asked "Check Flag 
Address". This test required the turning on and 
off of the Write address and Conp are Disable 
Switches, During the execution of this routine, 
the Compare Disable and Write Address Switches 
must be turned on so that flagged addresses can be 
written on the track. A read disk numerically 
command is executed and a flag is set over the 
the first sector address and one address is set out 

of sequence. After the proper switches have been 
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turned on, the track is written. Then Instructions are 

typed out requesting the Write Address and Compare Disable 

switches to be turned off. When the switches have been 

turned off, an attempt is made to write on the sector 

with the flagged address. This should force an 

address check. If it doesn't, an error message is 

typed out. Then a read of the track is attempted and the 

Address Check should be turned on again because the 

addresses are out of sequence. If the Address Check 

is not turned on, an error message is typed out. Then the 

Compare Disable and Write Address Switches must be 

turned on so that the addresses can be written 

to their proper configuration. After this is accomplished, 

the Gbmpare Disable and Write Address Switches 

must be turned off. 

The test complete routine checks program switch 4 to 
determine if the test is to be looped or not. . If switch 
4 is on, the test is looped until switch 4 is turned 
off. Then program switch 1 is interrogated to see 
if any error messages were bypassed. 

The error map is checked to see if any errors 

occurred while running the test. If any errors occurred 

and had been bypassed, this message types out 

before the test complete message is typed out. 
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The Error Routine contains the instructions to type 
out the appropriate error message, sets a digit 
in the error map, and returns to proper location 
in the program. 

The Reset VRC Routine is entered whenever it is 
desired to turn off the VRC indicators. It is 
entered by a Branch and Transmit Immediate 
instruction and completed by a branch back 
instruction. 
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ERROR ANALYSIS 

RDTK, NOADRS, ADRS CK IND OFF ER51 01002 

This type out occurs in the Address Check Indicator routine if the Address 
Check Indicator is off, and a read track instruction is used to read a track 
into memory and no address was read in. Prior to doing the read track 
instruction, a record mark is set in the address area. This record mark 
is still in the address area to cause this type out. 

ADRS CK IND (36) WONT TURN ON ER52 01146 

This type out occurs in the Address Check Indicator routine. The routine 
attempts to read sector address 00000 from cylinder 97 and should turn on 
the Address Check Indicator. The failure to turn on indicator 36 results in 
this type out. 

HDSAT CYLXX, SHD BE CYL 97 ER54 01146 

This error type out occurs if cylinder 97 is not accessed to when positioning 
the access mechanism for the Address Check Routine. XX is the cylinder at 
which the access arm is positioned. 

SELECTING WRNG STORAGE DR, DISK PACK SCTR ADRS RANGE X 

ER70 01062 

This type out occurs in the Address Check Routine if the wrong module was 
selected when accessing to cylinder 97 of the. module on which the CE Pack 
is installed, and the module has sector addresses in the range indicated by 
X, where X can be: 
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X 


Range 




1 


20000 - 


39999 


2 


40000 - 


59999 


3 


60000 - 


79999 


4 


80000 - 


99999 



ADRS CK IND 36 OFF ER80 01062, 01146 

Address Check Indicator 36 is off. 

RD, MBR-E/0, ADS CK, OR WRNG HD RD TK, ON ALL HDS 

ER55 01722 

*' ft 

This type out occurs in the Locate a Properly Functioning Head Routine 

if a Read, MBRE, MBRO, Address Check occurred while attempting to read 
all ten heads or the track read did not correspond to the expected track. 
This indicates that no head is functioning properly. 

HDS AT CYL XX SHD BE CYL YY ER56 01998 

This type out occurs while checking the seek operation. The access 
mechanism is at cylinder XX and should be at cylinder YY. YY will be 
11, 22, 33, 44, 55, 66, 77, or 88. 

HDS AT CYL XX SHD BE CYL 03 ER61 03558 

This type out occurs if the access mechanism is not positioned at cylinder 
03 to check write and read back check operations. XX is the cylinder at 
which the access arm was positioned. 
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ADRS CK IND WONT TURN ON VIA A WR ON FLG ADRS 

ER65 05550 

This type out occurs when testing the Read-Only operation. An attempt 
is made to write on a flagged address, which should turn on the Address 
Check Indicator, but the Address Indicator was not turned on. 

ADRS CK IND WONT TURN ON VIA ADRS NOT INCR BY ONE 

ER66 05634 

This type out occurs if the File Address Check Indicator was not turned 
on when reading three sectors whose addrosses are not increment by one, 

OVFLO CK (38) WONT TURN ON ER62 04494 

This type out occurs if the Overflow Check Indicator (38) is not turned on 
and Any File (39) is on. 

ANY FILE 39 OFF, OVFLO 38 OFF ER71 04530 

This type out occurs if both the Overflow Check Indicator (38) and Any 
File (39) are not forced on. 

ANY FILE 39 OFF, OVFLO 38 ON ER72 04530 

This type out occurs if the Overflow Check Indicator 38 was turned ON, 
but Overflow failed to turn on Any File. 

WLR CK (37) WONT TURN ON VIA RD BK ER ER63 04686 

This type out occurs if a Read Back compare error does not turn on the 

Wrong Length Record Check Indicator (37), but Any File is on. 2161822 
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ANY FILE 39 OFF, WLR 37 OFF ER73 04722 

This type out occurs if both the Wrong Length Record and Any File 
Indicators are off when forcing a read back compare error. 

ANY FILE 39 OFF, WLR 37 ON ER74 04722 

This type out occurs if the Wrong Length Record Indicator is turned on, 
but it failed to turn on Any File. 

WLR CK (37) WONT TURN ON VIA GM LATE TERM ER64 04842 
This type out occurs if the Wrong Length Record Check Indicator is not 
turned on by reading a sector with WLR Check mth late termination of 
the Group Mark. 

WLR CK (37) WONT TURN ON VIA GM EARLY TERM 

ERG8 04914 

This type out occurs if the Wrong Length Record Check Indicator is not 
turned on by reading a sector with WLR Check with early termination of 
the Group Mark. 

WLRCKON, GM CORRECT PLACE, RD SCT WLR ER67 G4962 
This type out occurs if the WLR Check is turned on during a read sector 
operation and the group mark is located correctly. 

ANY FILE 39 OFF, ADRS 36 OFF ER75 05082 

This type out occurs if the Address Check Indicator cannot be turned on 
by reading a sector not on the accessed cylinder. 
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ANY FILE 39 OFF, ADBB 36 ON ER76 05082 

This type out occurs 3i the Address Check Indicator does not turn on the 
Any File Indicator. 

ANY DATA ON, ANY FILE OFF ER77 05190 

This type out occurs if the Address Check Indicator is on, Any File 
Indicator is off, and the Any Data Check is on. Ignore error type out if 
Address Check is not on. 

ANY DATA OFF, ANY FILE ON ER78 05250 

This type out occurs if the Any File Indicator does not turn on the Any 
Data Check Indicator. 

ANY DATA OFF, ANY FILE OFF ER79 05250 

This type out occurs if the Address Check Indicator and the Any File 
Indicator are both off. Ignore error type out if address check does not 
turn on Any File. 

ERROR OCCURRED BY SWITCH 1 WAS ON THUS NO ETO 

ER30 05850 

This error tjrpeout will occiir in the test complete routine if the user 
has Switch 1 on and an error occurred during the running of the test. 
ETO = Error Type Out. 
All other error type out use the following standard format: 
AAAAAAAA BBBBBB (XX) CYL ZZ HD Y 
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Explanation of code letters; 

AAAAAAAA, indicates the 1311 operation on which the error dccixrred, 
and can be one of the following: 

WRITE 20 SCT WLR ER3 03728 

The program is writing 20 sectors from memory onto a track on the Disk 
Pack with Wrong Length Record Check. 

READ BK COMP WLR ER4 03834 

The program is executing a read back compare of the da.ta previously 
written on the Disk Pack with Wrong Length Record Check. 

READ TKW/0 WLR ER5 03066 

The program is reading a track of data and addresses from a track on 
the Disk into memory without Wrong Length Record Check. 

RD TK WITH WLR ER5G 03066 

The program is reading a track of data and addresses from a track on 
the Disk into memory with Wrong Length Record Check. 

PROG COMPARE ER6 02778, 04050 

The program is doing a progrsun compare of the data written with the data 
read. 



PN 2161822 
EG 4G4860A 



, DT 0022 
Page 21 

WR 20 SCT W/0 WLR ER3G 03728 

The program is writing 30 sectors from memory onto a track on the Disk 
Pack without Wrong Length Record Check. 

RDBKCKW/OWLR ER4G 03834 

The program is executing a read back compare of the data previously 
written on the Disk Pack without Wrong Length Record Check. 

RD20SCT, WLR ER6G 03930 

The program is reading 20 sectors from the Disk Pack into memory with 
Wrong Length Record Check. 

RD 20 SCT, W/0 WLR ER6GM 03930 

The progrsun is reading 20 sectors from the Disk Pack into memory 
without Wrong Length Record Check. 

READ SECTOR W/0 WLR ER5S 02670 

Tlie program is reading a sector from the Disk Pack into memory without 
Wrong Length Record Check. 

SEEK ER8 00870, 01926, 02358, 03486 

The program, has performed a seek operation. 
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CYL 3 ZERO RESET ER9 04182 

The program has executed a write and read back check of 20 sectors of 
data (all zeros) in an attempt to insure a change of data on cylinder 03, 

RD TK WLR, ADRS NOT EQ ER59 03198 

The program is checking the read track operation under Wrong Length 
Record control. The address that was read in was not correct. 



RD TK W/0 WLR, ADRS NOT EQ ER60 03198 

The program is checking the read track operation without Wrong Leng+h 
Record Check. The addresses that were read in were not correct. 



BBBBBB (XX) can be one of the following: 

ADSCK(36) 



ERIO 05994 



WLR CK (37) 



ERll 06114 



OVFO CK(38) 



ER12 06138 



RD CK (06) 



ER14 06174 



WR CK (07) 



ER15 06198 



MBR-E (16) 



ER16 06222 
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FILE NO IND (39) ER13 06138 

The program found Any File Indicator on, but all the indicators which turn 
it on are off. 

DATA NOT EQUAL ER7 04062, 02790 

The program compaire of the data written and the data read. The data 
failed to compare. 

RD TK X ER57 02838 

The program has read the wrong track, where X is the track that was read. 

SELECT LOCK ER19 05994 

CORRECT TK, DATA NOT COMP ER58 02838 

The prograjn is checking the read amplifier. The correct track was 
read, but the data read into memory fails to compare. 

CYLZZHDY ER20 06354 

Indicates which Cylinder (CYL) the error occurred on, where ZZ will be 
from 00 to 99, and also which head (HD) or track was used, where Y will 
be from 0 to 9. 
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E, SERVICE HINTS ; 

A routine has been Included in DT 0022 to assist the CE if the austomer 
reports address checks. This routine is designed to verify that the 
addresses on a cylinder are correct. Since this routine may be used 
with a customer's pack on the Disk Storage Drive Unit and the other 
phase of DT 0022 must be used with a CE Pack, CAUTION must be used 
to not enter any other portion of DT 0022 until the CE Pack has been 
installed. 

To enter the routine to check sector address, DT 0022 must be loaded. 
Them the user must insert and execute a 49 06042. The routine will 
request the module number and a two (2) digit cylinder number and a 
one (1) digit address range. 

1 digit address range Sector address 



The program reads the tracks and checks the sector addresses read 
with what should have been read. 

Error typeout: 



0 
1 
2 
3 



00000 - 19999 
20000 - 39999 
40000 - 59999 
60000 - 79999 



XXXXX S/B YYYYY 



XXXXX is the sector address read from disk. 
YYYYY is what should have been read In. 



Switch 2 on, will loop the checking of the cylinder. 
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1311 DISK DIAGNOSTIC TEST 0022 
FLOWCHART 



Read Flowchart from left side of Page 26 to right side 
of Page 27. Note that A on Page 26 connects to A on 
Page 27 and B on Page 26 connects to B on Page 27, 
Etc. 
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00402 




TYPE 



CONTROL 

NAME 
WARNING 

SWITCH 
SETTINGS 



00618 



ASK IF 
»ROG IS TO CK 

FLG ADRS 
.PROTECTION 



00750 



I 



REQUEST 
AND ACCEPT 

MODULE 
NUMBER 



00930 



48- 



SEEK CYL. 97 

CHK ADRS 
CK IND 
IND 36 



ON 



01530 




OFF 



FIND GOOD 
HEAD TO 
CHECK 
SEEK 



ON 



01986 




OFF 



TEST 
SEEK 



02418 



SEEK TO 
CYL. 97 
CHK AT 97 



B 




READ « ^ * 
EACH HMD 



III n ii pit vjr r 
03042 T 




READ TRACK 




WITH/WITHOUT 




WLR CHK 




ON 



OFF 



03426 



SEEK CYL, 3 
WRITE 20 SCTR 
READ BACK CK 
READ 20 SCTR 
COMPARE DATA 
WRITE WITH EACH HD 
CYL. 3 ZERO RESET 



ON 



04506 




OFF 



CHK THAT 

OVERFLOW- 
TURNS ON 
IND 38 & 39 



04662 



CHK THAT 
RRC ERROR 
TURNS ON 
IND 37 & 39 



04854 



I 



CHK THAT 
WLR CK LATE 
TERM. OF GM 
TURNS ON IND 37 



PN 2161822 
EC 404908 



04950 



05010 



CHK THAT 
WLR CK EARLY 
TERM. OF GM 

TURNS ON 
IND 37 

1 



CHK THAT 
CORRECT WLR 
DOES NOT 
TURN ON 
IND 37 



05070 



I 



CHK THAT 
IND 36 TURNS 
ON IND 39 



05214 



I 



CHK THAT 
IND 39 

TURNS ON 
IND 19 



* 05418 




READ TRACK 
PUT ON- 

FLAG ADRS 

SCTR ADRS NOT 

INC BY 1 
WRITE TRACK 



05574 



05658 



CHK THAT 
WR ON FLG 
WILL TURN 

ON IND 36 

TZ 



CHK - RD 
SCTR'S NOT 
INC. BY 1 
WILL TURN 
ON IND 36 



*05742 



i 



REPLACE 
CORRECT 
TRACK 
DATA 
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TYPE 
TEST 
vCOMPLETED> 





ENTERED VIA BRCH IN 
INSERT AREA 





06042 



REQUEST 
MODULE 
CYLINDER NO. 
ADDRESS 
RANGE 




INITIALIZE 
SEEK 



06258 



3 



READ 
TRACK 



06294 



i 



CHECK 
ADDRESSES 



YES 



*USER IS INSTRUCTED TO CHANGE SWITCHES 




OFF 



PN 2161822 
EC 404908 
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SAMPLE OUTPUT FOR DT 0022 



DT 0022 - 1311 FAULT ISOLATION 
WARNING -REMOVE CUSTOMER DISK PACKS 
FROM ALL MODULES, TURN SW 3 ON* 
SW 3 ON FOR CORRECTING KEY IN 
SWITCH SETTINGS 
PROGRAM - AS DESIRED 
DATA — PROGRAM 

CK FLG ADRS, TYPE YES OR NONCR-S 

KEY IN 1 DIGIT MODULE NO . DISK PACK IS ON CR-S 

TEST COMPLETED 



P/N 2161822 
EC 404908 



00010* 

00U2U* 1311 FILE DIAGNOSTIC 

00030» 



00U40* 


DT 0022 - FAULT 


ISOLATION 


O0U50* 






00060* 






00070* 


CONTROL ROUTINES 


00080* 


DORG 00402 




00100 s 


B *+ 12 » ♦ » 


RESTART BRANCH 


OUllO 


RCTY » 9 » 


RET CARR 


00120 


WATY Tl ♦ » » 


TYPE TEST NAME 


12343 


RCTY 




12345 


WATY WRCD1»»» 


REMOVE DISK 


12343 


RCTY 




12345 


WATY WRCD2» ♦ • 


PACKS 


12345 


BNC3 *♦♦» . 


WAIT TILL SW 3 


0013 0* 






00140* 


TYPE OUT SWITCH 


SETTINGS 


00150* 






C016U 


RCTY 


RET CARR 


UU170 


WATY T30.»» 


TYPE SW3 ON 


00180 


RCTY ♦»» 


RET CARR 


00190 


WATY T2 t » » 


T/O SW SETTINGS 


00200 


RCTY ♦ ♦ ♦ 


RET CARR 


au2iu 


WATY T3 » ♦ » 


T/O SENSE - OFF 


0U220 


RCTY 


RET CARR 


00230 


WATY T4 ♦ » ♦ 


T/O DATA - PROG 


06220 


TDM N0PAD+1»1»» 


INSURE NOP 


00240 


M % 9 9 


HALT 


00250* 






00260* 


ASK IF PROGRAM 


IS TO CHECK 


002 70* 


FLAGGED ADDRESS 


PROTECTION 


00280* 






00290 


RCTY >»9 


RET CARR 


00300 


WATY T6»»» 


CK FLG ADRS 


uU310 


RATY ANS»»» 


ACCEPT ANSWER 


00320 


BC3 *-12»». 


SW 3 ON TYP AGN 


00330 


SF ANS--1»»» 


SET FLAG 


00340 


CM ANS»68»10» 


CK FOR YES 


00350 


BNE #+36 » ♦ ♦ 


BRCH NOT EQUAL 


00360 


TD TSM»RM»» 


PUT RM IN. MAP 


00370 


B *+24, , ♦ 


SKIP NEXT INST 


00380 


TOM TSM»00»V 


CLEAR MAP 


00390 


TFM S-*-6t*»» 


LOAD RESTART 


00400* 






00410* 


REQUEST AND ACCEPT THE " 


0U420* 


MODULE NUMbER THAT 


00430* 


DISK PACK IS ON 




00440* 






06240 SAD 1 


RCTY 




00460 


WATY T5»f • 


ROT MOD NO. 



DT0022 
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00402 



00402 


49 


00414 


00000 


00414 


34 


00000 


00102 


00426 


39 


079«7 


00 100 


00438 


34 


00000 


00102 


00450 


39 


08049 


00100 


00462 


34 


00000 


00 102 


00474 


39 


081 19 


00100 


00486 


47 


004b6 


00300 


004V8 


34 


00000 


00102 


00510 


39 


08635 


00100 


00522 


34 


00000 


00102 


00534 


39 


08181 


OOiOO 


00346 


34 


00000 


0010*: 


00558 


39 


08213 


OOlOO 


00570 


34 


00000 


0.0102 


00582 


39 


03255 


00 100 


00594 


15 


00863 


00001 


00606 


4b 


00000 


00000 


00618 


34 


00000 


001C2 


00630 


39 


08373 


00100 


00642 


37 


11675 


00 100 


00654 


46 


00642 


00300 


.00666 


32 


11674 


00000 


00678 


14 


11675 


00008 


00690 


47 


00726 


01^00 


00702 


:2-3 


11673 


ii-6 54 


00714 


49 


00738 


00000 


00726 


15 


11673 


00000 


00738 


16 


00408 


-0738 


00750 


34 


00000 


00102 


00762 


39 


0828 7 


00100 



P/N 2161822 
E/C 
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0U4T0 


RNTY 


N f » • 


ACCEPT NO. 


A A 7 7 /i 


'A A 


1 1 A A 1 
X 1 OH J 


00100 


U0480 


ec3 


*-12»ff 


SW3 ON, KEY AGAIN 


UU f 00 


0 


aa7 7/» 
UU 1 » H 


A A at A A 

UU JUU 


00490* 
















00500* 


COMPUTE DRIVE CODE DIG FROM 










00510* 


MOD NO .AND LOAD 


SUB- INST 










0052Q* 


AND STORE MATH TABLES 










00 530* 










X mf 


X X Q t J 




00540 


MM 


N»2»10» 


DOUBLE MOD NO. 


AA7yw 

UU ' '' V 


U WW 


005 50 


AM 


99»01»8» 


ADD ONE 


00810 


1 1 


00099 


0-001 


(J U Do U 


TO 


M»99»» 


STORE DRIVE CODE 


008il2 


25 


11647 


00099 


UU D / U 


TD 


Sl»Mf» 


LOAD SUB-INST 


00834 


25 


12090 


11647 


UU DOU 


TD 


S2»M.» 


LOAD SUB-INST 


00846 


25 


i4ii04 


11647 


00 590 


TD 


S3fM»» 


LOAD SUB-INST 


onftSA 
UU0-/0 


7 ^ 

C J 


1 ? 1 1 ft 

X £. X X 0 


1 1 ft47 


UU60.U 


TR 


TABfOOlOO* • 


STORE MATH TABLES 


A A M 7 A 

000 1 0 


i X 


1 1 7 M A 
XX ( 0 0 ' 


A A 1 A ft 
UU XU w 


t O 1 A M AO A r» 


NOP 


SAO 




00882 

V/ W W W Cb 


41 


06342 


00000 


UU o 1 u 


TFM 


S+6»*» » 


LOAD RESTART 




X w 


AAA Aft 
w w — V 0 


W w 7 


00620* 
















A n i. u A * 
UUO J U* 


RESET THE INDICATORS THAT 










, 1 # A ^\ ill 

QUo40* 


TURN ON ANY DATA 


CHECK 










0U65U* 
















UUooO JU 


BNI 


«-f24»01900» » 


ANY DATA CK 


u U ' vj 0.. 


47 


AAQ 3 A 


0 1 900 
V X 7 J w 


00 670 


BTM 


RSf*»» 


BRCH TO SUB-ROUT 


aaq 1 p) 

0 0 ^ 0 


1 7 
X f 


U • ' 


— OQ T A 
u y X 0 


00680* 
















UUO7U* 


THIS ROUTINE SEEKS CYLINDER 97 










00700* 


AND CHECKS ADRS 


CK INDICATOR 


























A A 7 *> A 11 
U U f £ U -J I 


TFM 


S2-f5 ,19400, , 


INIT SUB-INST 


0 0930 


1 6 


12 1 09 


J9400 
^ ~ w w 


OU f 3 U 


TFM 


S2+8,001,9» 


INIT SCTR CNT 




1 A 
X 0 


X. €. k k 


nn— A 1 

UU U X 


A A T /. A 
UU f •I'U 


K 


S2,00701»f 


SEEK CYLINDER 97 


UU 




1 P ] A4 


oo7o 1 

vU ' U X 


n fi 7 C A 
U U f D (./ 


BNI 


*+48 ,01900, , 


ANY DATA CHECK 


00966 


47 


01014 


01900 


I 'l /"I A 


TFM 


ERH+18,*-24,» 


. LOAD RETURN 


n A Q 7 R 


1 1% 

X v> 


07198 


— 0954 


00770 


TFM 


E1+6,ER8»» 


LOAD OPERATION 


A A QQ A 

UU 7 ^ u 


1 A 
X D 


A7 A4^ 
U ' 0 " <- 


— A HQ 1 
0 0 7 X 


00780 


B 


ERR, » » 


BRCH TO ER ROUT 


A 1 AH 1' 

U X uu<. 


ZiQ 
H 7 


A7 1 a A 
U ' X 0 u 


nno AO 

UUvUU 


t-\ i\ '9 f\ t\ 

00 790 


TFM 


S2+5»000UU» , 


INIT SUB-INST 


A 1 A 1 Zi 
U i U X *♦ 


1 A 

X 0 


1 yi AQ 

X c X U7 


— A A Afli 
UU WW 


00800 J4 


RN 


S2,0U7U2, , 


READ SECTOR 


AT A >' A 
U i U <£. 0 


H A 


1 1^ 1 A4 
X £ X 0^ 


n A 7 A ^ 

WW f U<b 




BI 


J5 ,U36U0» , 


ADDRESS CK 


V/ A V W 


46 


01326" 


03600 


t\ f\ Q ^ fx 

00820 


TFM 


S2+8,020,9, 


INIT SUB-INST 


n 1 nR A 

U 1 U 3 U 


1 A 


X C X X C 


A A — p A 
WW CM 


00830 


TF 


A2+5.RM»» 


PUT RM IN A2 ADS 


A 1 A A "? 


■5 A 


144 1 A 
X'r't X 0 


X X 0 7 H 


00840 


RN 


S2»00706,» 


READ TRACK 


A 1 A 7 A 
0 XU • *T 


A 

0 0 


15 1 AA 
X X O** 


A A 7 A A 
U U ' U w 


U U 0 P U 


BNR 


*+36,A2+5,, 


CK FOR RM IN A2 


A 1 Aft A 


4S 

•t ^ 


A 1 i ^ ^ 


1441 fe 


UUodU 


BTM 


ET»ER51»» 


BRCH, LOAD ER T/O 


U X u ^ 0 


X * 


n 7 H fe H 


-949 5 


n ft fl 7 n 
u u 0 f u 


B 


Jl,,, 


TRY AGAIN 


OlllO 


49 


00930 


00 COO 

V.' V W W W 


n A <} fi n 
UUo 0 u 


SF 


A2+l»»t 


SET FLAG 


01122 


32 


14412 


00000 

w v# w \J w 


A A 0 0 A 

00890 


MM 


A2+3»05»10» 


MULTIPLY BY 5 


U X X J ** 


X J 




noo~% 

www ^ 


A n Q A n 


BO 


♦•4-24,096»f 


BRCH DIGIT 


0 1146 


43 


01170 


00096 


n n Q 1 f ) 


B 


*+60, » , 


BYPASS 


01158 


49 


01218 


00000 


00920 


TD 


ER70+1U4»96»» 


LOAD SCTR RANGE 


01170 


25 


10711 


00 09 6 


00930 


BTM 


ETtER70»t 


BRCH,LOAD ER T/O 


01182 


17 


07888 


J0607 


00940 


BTM 


ETfERBOo 


BRCHfLOAD ER T/O 


01194 


17 


07888 


J1197 


00950 


B 


J 1 f ♦ » 


TRY AGAIN 


01206 


49 


00930 


00000 


00960 


CM 


99,970»t 


IS IT CYL 97 


01218 


14 


00099 


-0970 


00970 


BNE 


*-»-36»»» 


BRCH IF NOT EQ 


01230 


47 


01266 


01200 


00980 


BTH 


ET»ER52ff 


BRCHftOAO ER T/O 


01242 


IT 


07888 


-9555 



P/H 2161822 
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00990 


B 


Jl**» 


TRY AGAIN 


01234 


49 


00930 


00000 


01000 


TD 


ER54+22»97»» 


LOAD CYL NO. 


01266 


25 


09637 


00097 


01010 


TD 


ER54+24,98» , 


LOAD CYL NO. 


01278 


25 


09639 


00098 


01020 


BTM 


ETtER54, , 


BRCHtLOAD ER T/0 


01290 


17 


07888 


-9615 


01030 


BTM 


ET,ER80» » 


BRCH,LCAD ER T/0 


, 01302 


17 


07888 


J1197 


01040 


B 


Jlt>» 


TRY AGAIN 


01314 


49 


00930 


00000 


W X V ^ V/ w V 


TFM 


S2+8»020f9» 


INIT SUB-INST 


01326 


16 


12112 


00-20 


V X V O V/ 




<^2«U07U6«» 


READ TRACK. 


01338 


36 


12104 


00706 


010 70 


<;p 


r\ fc ~ X 9 » » 


SFT FLAG 


01350 


32 


14412 


00000 


U 1 V 0 V 


MM ' 


Hfc'JfV/J* XU» 


Ml JL T I PL Y bY b 


01362 


1 3 




000-5 




ov 




BRTH DIGIT 


01374 


43 


01398 


00096 


n 1 1 0(i 


a 
%j 


*4-48 • • • 


BYPASS 


01386 


49 


01434 


00000 


O 1 1 1 0 


TD 


FR7 0+1 04 • 96 • • 


Load sctr range 


01398 


25 


1071 1 


00096 


0112 0 


BTM 


ET»ER70t» 


BRCH»L0AD ER T/0 


01410 


17 


07888 


J0607 


01 130 


B 


Jl * « • 


TRY AGAIN 


01422 


49 


00930 


00000 


01140 


CM 


99*970»f 


IS IT CYL 97 


01434 


14 


00099 


-0970 


01150 


BE 


*-»>60»t» 


BRCH IF EQUAL 


01446 


46 


01506 


01200 


01160 


TD 


ER54+22.97»» 


LOAD CYL NO. 


Ol4i)b 


25 


09637 


00097 


U1170 


TD 


ER54+24t9fa»» 


LOAD CYL NO. " 


01470 


25 


09639 


00098 


01180 


BTM 


ET»ER54»» 


BRCH,LOAD ER T/O 


0148^ 


17 


07888 


-9615 


01190 


B 


Jlf * » 


TRY-AGAIN 


014VH 


49 


00930 


.00000 


01200 


TFM 


S+6»*»» 


LOAD RESTART 


01506 


16 


00408 


-1506 


01210 


BC2 


Jl*»« 


SW2 ON REPEAT 


01518 


46 


00930 


00200 


01220* 
















i) 1 230* 


THIS ROUTINE ATTEMPTS TO FIND 










0 1240* 


A 


GOOD HD TO TEST 


OUT SEEKS 










012 50* 
















01? 60 

V X t O V 


BNI 


*+24»01900.» 


ANY DATA CK 


01530 


47 


01554 


01900 


01270 


BTM 


RS»*» » 


RESET INDICATORS 


01542 


17 


07744 


-1542 


U1280 J6 


TFM 


S2 + 5»19400» » 


INIT SUB-INST 


01554 


16 


12109 


J9400 


01290 


TFM 


S2+8t001»9» 


INIT SUB-INST 


01566 


16 


12112 


00-01 


01300 


TDM 


A2»00,1.I» 


SET FLG ZERO 


01578 


15 


14411 


0000- 


01310 


TFM 


J7+11,TD+1» . 


INITIALIZE 


01590 


16 


01733 


J1687 


01320 J9 


TFM 


M1»00000»» 


RESET ERROR MAP 


01602 


16 


11652 


-0000 


01330 


RN 


S2»00702»» 


READ SECTOR 


01614 


36 


12104 


00702 


01 340 


BNI 


♦+24»00600» J 


READ CHECK 


01626 


47 


01630 


00600 


V X J? ^ V/ 


TDM 


Ml-2»01»» 


PUT DIG IN MAP 


01638 


15 


11650 


OOOOl 


01360 


BNI 


* + 24t01600» f 


MBR-E CK 


01650 


47 


01674 


01600 


01370 


TDM 


Ml-l»01f» 


PUT DIG IN MAP 


01662 


15 


11651 


00001 


01380 


BNI 


* + 24,01700» » 


MBR-0 CK 


01674 


47 


01698 


01700 


01390 


TDM 


Ml-It01»f 


PUT DIG IN MAP 


01686 


15 


11651 


00001 


01400 


BNI 


♦+24 ,03600 •» 


ADRS CK IND 


01698 


47 


01722 


03600 


01410 


TDM 


MltOlo 


PUT DIG IN MAP 


01710 


15 


11652. 


OOOOl 


01420 J7 


TO 


♦+23»99999»» 


LOAD COMPARE 


01722 


25 


01745 


99999 


01430 


CM 


A2+l»00000»10» 


COMPARE HD NO. 


01734 


14 


14412 


000-0 


01440 


BE 


♦■<-24tf» 


BRCH IF EQUAL 


01746 


46 


01770 


01200 


01450 


TDM 


Ml-3,01»» 


PUT DIG IN MAP 


01758 


15 


11649 


OOOOl 


01460 . 


CM 


M1»00000»» 


IS MAP ALL ZEROS 


01770 


14 


11652 


-0000 


01470 


BE 


J8 f 9 9 


BRCH IF EQUAL 


01782 


46 


01878 


01200 


01480 


CM 


S2+591958099 


SEE IF DONE 


01794 


14 


12109 


J9580 


01490 


BE 


* + 48» 9 9 


BRCH IF EQUAL 


01806 


46 


01854 


01200 


01500 


AM 


S2 + 59OOO2O9 9 


UPDATE 


01818 


11 


12109 


-0020 


01510 


AM 


JT+11901G99 


UPDATE 


01830 


11 


01733 


-0010 



PAl 2161822 
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01 5?0 

V J, *^ £• V/ 


B 


J9 » » > 


TRY NEXT HEAD 


0 1 -a 0 

V Jl •» w 


BTM 


ET»ER55>» 


BRCHeLOAD ER T/0 


01 540 


8 


J6 ♦ 9 » 


TRY AGAIN 


n 1 c en to 
V 1 3 y V <JO 


TFM 


S+6f*»» 


LOAD RESTART 


n 1 Art 


BC2 


J 6 -2 4 » > » 


LOOP ROUTINE 


V JL 3 i v"^ 








n 1 ft n «• 


COMPUTE GOOD HEAD 


• AND 


0159 0* 


RESET INDICATORS 




01600* 








01610 


MM 


S2+4»05»10» 


MULTIPLY 


01620 


TD 


♦+23»98# » 


LOAD MULT. 


01630 J14 


MM 


C2 » 00000 » 10 f 


MULTIPLY 


01 640 


TF 


C3.C1»» 


LOAD CYL 11 


01630 


A 


C3-l»99.» 


ADD CORRECT HD 


01660 


6NI 


*+24>01900»» 


ANY DATA CHECK 


ul670 


BTM 


RSt*»» 


RESET INDICATORS 


01680* 

W i, \J \J \J ^ 








01690* 


THIS ROUTINE TESTS THE 


01 700* 


SEEK OPERATIONS 




0171 0* 








0 1 7 ? 0 


TF 


S2-»-5»C3>» 


LOAD SUB-INST 


U 1 7 0 


TFM 


S2+8»001»9» 


LOAD SUB-INST 


0 1 740 Jl 1 


K 


S2 ♦007oi » » 


SEEK CYLINDER 


01750 


BNI 


* + 48 »01900» » 


ANY DATA CHECK 


01760 


TFM 


ERR+18»*-24»» 


LOAD RETURN 


01770 


TFM 


El+6»ER8»f 


LOAD OPERATION 


01780 


B 


ERR* » ♦ 


BRCH TO ER ROUT 


01790 


RN 


S2»00702»» 


READ SECTOR 


01792 


BI 


*+12»00600 




01794 


BI 


*+12»01600 




01796 


BI 


*-<-12»0170O 




01800 


BNI 


J10»03600»» 


ADRS CHECK 


01810 


TFM 


S2+8»020,9» 


LOAD SUB-INST 


01820 


RN 


S2»007U6» ♦ 


READ TRACK 


01830 


MM 


S2+4»05» ♦ 


MULTIPLY BY 5 


01840 


TD 


ER56+50»96»» 


LOAD CYL NO. 


01850 


tD 


ER56+52»97», 


LOAD CYL NO. 


01860 


MM 


A2+4»05»» 


MULTIPLY BY 5 


01870 


TD 


ER56+22»96»» 


LOAD CYL NO. 


01880 


TD 


ER56+24»97»»... 


LOAD CYL NO* 


01890 


BTM 


ET»ER56»» 


BRCH, LOAD ER T/O 


01900 


B 


Jll-12»»» 


TRY AGAIN 


01910 JIO 


CM 


S2+2»01T,10» 


SEE IF DONE 


01920 


BNL 


*'f-36»»» 


BRCH IF EQUAL 


01930 


AM 


S2-»-5»02200»» 


UPDATE-NEXT CYL 


01940 


B 


JU» • > 


TRY NEXT CYL 


01950 


TFM 


S+6»*»» 


LOAD RESTART 


01960 


8C2 


Jll~24»»» 


SW2 ON LOOP BK 



01970* ' ■■ . ■ 

01980* THIS ROUTINE TESTS THAT 

01990* HEADS ARE WORKING PROPERLY 

02Q00* 

02010* FIRST GENERATE TEST DATA 

jyU 2161822 
E/C ttOM980 



01842 


49 


01602 


00000 


01854 


17 


07888 


-9671 


01866 


49 


01554 


00000 


01878 


16 


00408 

V V ~ V w 


-1878 


01890 


46 


nl530 


V V «■ V V 


01902 


13 


12108 


000-5 


01914 


25 


01937 


00098 


01926 


13 


11661 


000-0 


01938 


26 


11671 


11666 


01950 


21 


11670 


00099 


01962 


47 


01986 


01900 


01974 


17 


07744 


-1974 


01986 


26 


12109 


11671 


01998 


16 


12112 


00-01 


02010 


34 


12 104 


00701 


02022 


47 


02070 


01900 


02034 


16 


07i Vtt 


--clOlO 


02046 


16 


07642 


-8891 


02058 


49 


07 180 


00000 


02070 


36 


12104 


00702 


02082 


46 


02094 


00600 


02094 


46 


02106 


01600 


02106 


46 


02 1 18 


01700 


02118 


47 


02250 


03600 


02130 


16 


12112 


00-20 


02142 


36 


12104 


00706 


02154 


13 


12108 


-0005 


02166 


25 


09817 


00096 


02178 


25 


09819 


00097 


02190 


13 


14415 


-0005 


02202 


25 


09789 


00096 


02214 


25 


09791 


00097 


02226 


17 


07888 


-r9767 


02238 


49 


01998 


00000 


02250 


14 


12106 


00OJ7 


02262 


46 


02298 


01300 


02274 


11 


12109 


-2200 


02286 


49 


02010 


00000 


02298 


16 


00408 


-2298 


02310 


46 


01986 


00200 
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02030 


SF 


TD» « • 


SET FLAG 


U2040 


TFM 


*+30»Al+100f • 


INITIALIZE 


07050 


TFM 


*+30» Al + 1 f V 


INITIALIZE 


02U60 

V *• w w w 


T F 


99999 »TU+99f • 


PUT DATA IN Al 


02070 


CP 


99999t»» 


CLEAR FLAG 


n 5 n ft 0 


CM 


*-18» A 1+2000 • 


• SEE IF DONE 




BE 


*+48»»» 


BRCH IF EQUAL 


0 9 1 on 


AM 


*-42tlOO»» 


UPDATE 


no 1 1 f'^ 
U<: 1 lU 


AM 


*-42»100»» 


UPDATE 


f \ 1 "5 n 


B 


*-^72»»» 


LOAD NEXT SECTOR 


no ^ "xrt 

U t i J u 


TFM 


S+6»«»» 


LOAD RESTART 












SEEK CYLINDER 97 


FOR ATTEMPTED 


0? 1 aO» 


READ WITH EACH HEAD 


071 70» 








07180 J15 


TFM 


S2+5»19400» ♦ 


INITIALIZE 


02190 


TFM 


S2+8,001»9, 


SET UP SCTR CNT 


07 7 00 


K 


S2»00701,, 


SEEK CYLINDER 97 


077 10 
y b c. X V 


BNI 


»+48»0190U> f 


ANY DATA CHECK 


07 7 7 0 


TFM 


ERR+18.*-24»» 


LOAD RETURN 


n 7 7 "^n 


TFM 


El+6»ER8,v 


LOAD OPERATION 


07 740 
w «. c w 


B 




BRCH TO ER ROUT 


02250 


RN 


S2»00702, ♦ 


READ SCCTOR 


07 7 AO 

\J C c O V/ 


BNI 


J17"24,03600» 


, ADRS CHECK 


07770 


TFM 


r.2+8»020»9:f 


SET UP SCTR CNT 


Q77flO 
y t c o V 


TFM 


S2 + 5»19400» » 


RESET ADDRESS 


077Q0 


TD 


*+23»J14+ll, , 


PUT DIG IN MULT 


n p -a 0 0 


MM 


C2»00000»10» 


MULTIPLY 




A 


S2+4»99»f 


ADD CORRECT HD 


Jew 


RN 


S2»00706»» 


READ TRACK 




SF 


A2 + I ♦ » » 


SET FLAG 




MM 


A2+3»05»10» 


MULTIPLY BY 5 


n o -a t ( ) 

VJ & J 7 y : 


TD 


ER54+22»97», 


LOAD 




TD 


ER54+24»98» » 


CYLINDER 


U7'ii70 


BTM 


ET»ER54»» 


BRCHfLOAD ER T/0 


0 7 ^ ft 0 

V £ J O V . 


B 


J15»»» 


TRY AGAIN 










02400* 


CLEAR READ IN AREA 


024i0» 








02420 


BNI 


*+24»01900f t 


ANY DATA CHECK 


02430 


BTM 


RS»*f ♦ 


RESET INDICATORS 


02440 J17 


TFM 


*+18»A2+100»» 


INITIALIZE 


0245a 


TFM 


99999f»» 


LOAD ZEROS 


02460 


SM 


»-6»4» • 


SUBTRACT 


0 2470 


CM 


*-18»A2»» 


SEE IF DONE 


02480 


BNE 


**36»f » 


BRCH NOT EQUAL 


02490* 








02500* 


READ SECTOR INTO 


AREA A2 


02510* 








02520 J13 


RM 


S2 ♦00702 


READ SECTOR 


02530 


BNI 


♦+48 »01900» » 


ANY DATA CHECK 


02540 


TFM 


ERR-H8»J16»» 


LOAD RETURN 



02322 


32 


11686 


OOOOO 


02334 


16 


02364 


J2409 


02346 


16 


02376 


J2310 


02358 


26 


99999 


11785 


02370 


33 


99999 


OOOOO 


02382 


14 


02364 


J4309 


02394 


46 


0244^ 


ouoo 


02406 


11 


02364 


-0100 


02418 


11 


02376 


-0100 


0243O 


49 


02358 


OOOOO 


02442 


16 


00408 


-2442 


02454 


16 


12109 


J9400 


02466 


16 


12112 


00-01 


02478 


34 


12104 


00701 


02490 


'4 7 


02538 


01900 


02502 


16 


07198 


-2478 


02514 


16 


07642 


-8891 


02526 


49 


07180 


OOOOO 


02538 


36 


1210.4 


00702 


02550 


47 


02706 


03600 


02562 


16 


12112 


00-20 


02574 




12109 


J 9400 


02586 


25 


02609 


01937 


0259b 


13 


11661 


000-0 


02610 


21 


12108 


00099 


02622 


36 


12 104 


00706 


02634 


32 


14412 


OOOOO 


02646 


13 


14414 


000-5 


02658 


25 


09637 


00097 


02670 


25 


09639 


00098 


02682 


17 


07888 


-9615 


02694 


49 


02454 


OOOOO 


07 70A 
y c. 1 y o 




ri > 7 '-4 n 


U X 7 y U 


02718 


17 


07744 


-2718 


02730 


16 


02748 


J4511 


02742 


16 


99999 


-0000 


02754 


12 


02748 


-0004 


02766 


14 


02748 


J4411 


02778 


47 


02742 


01200 


02790 


36 


tf 

12104 


00702 


02602 


47 


02850 


01900 


02814 


16 


07198 


-3006 
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TFM 


El+6»ER5S»f 


LOAD ER T/O 


02826 


16 


07642 


-9453 


o 5 1» A n 


B 


ERR» » » 


BRCH TO ER ROUT 


02836 


49 


07180 


00000 


n 5 7 n# 

U c P r U'^ 
















02 580* 


PROGRAM COMPARE OF DATA READ 










\J C -? 7 V ^ 
















V t. O Vy w 






MULT I PL Y BY 5 


02850 


13 


12108 


-0005 


w c O i W 


TD 


Al4>1«98«« 


LOAD HD DIGIT 


02862 


25 


12310 


00098 


02620 


T DM 




SET FLAG 


02874 


15 


12309 


0000- 


U2630 


TDM 


A2»00»ll» 


SET FLAG 


02886 


15 


14411 


0000- 


U2640 


C 


Al/+100»A2+100t 


♦COMPARE 


02896 


^4 


1^409 


14511 


02650 


BE 


J16**» 


BRCH IF EQUAL 


02910 


46 


03006 


01200 


02 660 


C 


Al+1 »A2+1» • 


COMPARE HD 


02922 


24 


12310 


14412 


02670 


TFM 


ERR + 16 » J16» ♦ 


LOAD RETURN 


02934 


16 


07198 


-3006 


02680 


TFM 


E1+6,ER6, ♦ 


LOAD ER T/O 


02946 


16 


07642 


-8833 


02690 


BE 


*+36» ♦ ♦ 


BRCH IF EQUAL 


0295b 


46 


02994 


01200 


02700 


TDM 


ER57 + 12»A2+lf » 


INSERT HD NO. 


02970 


15 


09835 


14412 


02710 


BTM 


ETO»ER57» » 


BRCHfLOAD ER T/O 


02982 


17 


07552 


-9823 


U 2 7 2 0 


BTM 


ETO»ER58,, 


BRCH, LOAD ER T/O 


02994 


17 


07 5 52 


-9841 


U2730 J16 


CM 


S2 + 5, 19580 » » 


SEE IF DONE 


03006 


14 


12109 


J9580 


027^fO 


BE 


*-»-36 > , ♦ 


BRCH IF EQUAL 


03or' 


46 


030i>4 


01200 


02750 


AM 


S2+5»00020» ♦ 


UPDATE 


03CJU 


11 


12109 


-0020 


02760 


B 


J17, • » 


NEXT HEAD 


03042 


49 


02730 


00000 


02770 


TFM 


S + 6»*» » 


LOAD RESTART 


03054 


16 


00408 


-3054 


02780 


BC2 


J15, ♦ ♦ 


SW2 ON LOOP 


03066 


46 


02454 


00200 


02790* 
















U2800* 


THIS ROUTINE CHECKS THAT THE 










02810* 


DISK OPERATIONS WORK CORRECTLY 










02820* 
















02830* 


READ TK WITH AND 


W/O WLR CK 










02840* 
















02850 J20 


BNI 


*-«-24»01900» , 


ANY DATA CHECK 


03078 


47 


03102 


01900 


02860 


BTM 


RS»*»» 


RESET IND 


03090 


17 


07744 


-3090 


02870 


TDM 


A2+2101 ,0, , 


CLEAR GM 


03102 


15 


16512 


00000 


02880 


TDM 


J19+11,G6,, 


I NIT INST 


03114 


15 


03197 


00006 


02890 


TFM 


S2+8»020,9, ♦ 


INIT 


03126 


16 


12112 


00-20 


02900 


TFM 


S2+5»i9400, f 


I NIT 


03138 


16 


12109 


J9400 


02910 


ID 


*4-23»J14 + ll,, 


LOAD MULT 


03150 


25 


03173 


01937 


02920 


MM 


C2. 00,10, 


MULTIPLY 


03162 


13 


11661 


000-0 


02930 


A 


S2+4,99, , 


ADD CORRECT HD 


03174 


21 


12108 


00099 


02940 J19 


RN 


S2»00706, ♦ 


READ TRACK 


03186 


36 


12104 


00706 


02950 


BNI 


*->-84,01900, ♦ 


ANY DATA CHECK 


03198 


47 


03282 


01900 


02960 


TFM 


ERR+18»J18», 


LOAD RETURN 


03210 


16 


07198 


-3378 


02970 


55 


*+36,A2 + 2101» » 


CK FOR GM 


03222 


55 


03258 


16512 


02980 


TFM 


E1+6,ER5G,, 


LOAD ER T/O 


03234 


16 


07642 


-8801 


02990 


B 


ERR, ♦ , 


bRCH TO ER T/O 


03246 


49 


07 180 


00000 


03000 


TFM 


E1+6,ER5»» 


LOAD ER T/O 


03258 


16 


07642 


-8767 


03010 


B 


ERRt»» 


BRCH TO ER ROUT 


03270 


49 


07180 


00000 


03020 


AM 


S2+5, 00019, , 


LAST ADRS 


03282 


11 


12109 


-0019 


03030 


SF 


A2+1996,,, 


SET FLAG 


03294 


32 


16407 


00000 


03u4u 


C 


A2+2O0o»S2t5» , 


COMP LAST ADRS 


03306 


24 


16411 


12109 


03U50 


BE 




BRCH IF EQUAL 


03318 


46 


03378 


01200 


03060 


55 


*+36»A2+2101» ♦ 


C< FOR GM 


03330 


55 


03366 


16512 


03070 


BTM 


ET»ER59»t 


BRCHtLOAD ER T/O 


03342 


17 


07888 


-9893 
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03080 


B 


J18»*» 


NEXT OPERATION 


03354 


49 


03378 


00000 


03090 


BTM 


ET»ER60»» 


BRCHfLOAD ER T/0 


03366 


17 


07888 


-9937 


03100 J18 


55 


*+24tA2+2101 9 


♦ CK FOR 6M 


03378 


55 


03402 


16512 


03110 


B 


*+48» f ♦ 


DONE 


03390 


49 


03438 


00000 


03120- 


TD 


A2+2101»GM»» 


PUT IN GM 


03402 


25 


16512 


11655 


03130 


TOM 


J19+11 .04»f 


CHANGE INST 


03414 


15 


03197 


00004 


03140 


B 


J19-4b»»» 


TRY NEXT OP 


03426 


49 


03138 


00000 


03150 


TFM 


S+6»*»f 


RELOAD RESTART 


03436 


16 


00406 


-3436 


03160 


BC2 


J2bf»9 


SW2 ON LOOP 


03450 


46 


03078 


00200 


03170* 
















03180* 


WRITE SECTORS»RO 


BK CK»READ 










03190* 


AND PROGRAM COMPARE ON CYL 3 










03200* 
















03210* 


SEEK CYLINDER 3 


AND INITIALIZE 










03220* 
















03230 


BNI 


*+24»01900» f 


ANY DATA CK 


03462 


47 


03486 


01900 


032AO 


BTM 


RS»*»» 


RESET INDICATORS 


03474 


17 


07744 


-3474 


03250 K2 


TFM 


Sl+89020«9* 


SECTOR CNT 


03486 


16 


12098 


00-20 


03260 


TDM 


K4 + ll»02.»» 


INIT 


03498 


I'D 


03869 


00002 


03270 


TDM 


<6+l 1 »03 • ♦ 


INIT 


0351? 


1 b 


0396 5 


00003 


03280 


TDM 


K7+llf02»t 


INIT 


035-d^ 


13 


04061 


00002 


03290 


TDM 


Al't-2001 tO* • 


CLEAR GM 


03534 


15 


14310 


00000 


03300 


TDM 


A2+2001»O» f 


CLEAR GM 


03546 


15 


16412 


00000 


03310 K8 


TFM 


Sl + 5»00600» t 


LOAD SUB INST 


03558 


16 


12095 


-0600 


03320 


TFM 


S2 + 5»00600» » 


LOAD SUB INST 


03570 


16 


12109 


-0600 


03330 


TFM 


x3+23,TD+l» » 


INIT 


0358^ 


16 


03845 


Ji687 


03340 


TFM 


S2+8t001 »9f 


SECTOR CNT 


03594 


16 


12112 


00-01 


03350 


K 


S2 ,0070l » t 


SEEK CYL 3 


03606 


34 


12104 


00701 


03 360 


BNI 


* + 48»01900» » 


ANY DATA CHECK 


03618 


47 


03666 


01900 


03370 


TFM 


ERR+18»*-24»» 


LOAD RETURN 


03630 


16 


07198 


-3606 


03380 


TFM 


El+6»ER8»f 


LOAD OPERATION 


03642 


16 


07642 


-8891 


03390 


B 


ERR»» * 


BRCH TO ER ROUT 


03654 


49 


07180 


00000 


03400 


RN 


S2»00702»» 


READ A SECTOR 


03666 


36 


12104 


00702 


03410 


BNI 


K3»03600» » 


ADRS CK 


03678 


47 


03822 


03600 


03420 


TFM 


S2+8»020»9» 


CHNG SECT CNT 


03690 


16 


12112 


00-20 


03430 


TD 


*+23»J14+ll>» 


LOAD MULT 


03702 


2 5 


03725 


01937 


03440 


MM 


C2»00»10»» 


MULTIPLY 


03714 


i3 


11661 


000-0 


03450 


A 


S2+4»99»» 


ADD CORRECT HD 


03726 


21 


12108 


00099 


03460 


RN 


S2f00706»» 


RD TK 


03738 


36 


12104 


00706 


0 3470 


SF 


A2+1 » ♦ » 


SET FLG 


03750 


32 


14412 


00000 


03480 


MM 


A2+3»05» 10» 


MULT BY 5 


03762 


13 


14414 


000-5 


03490 


TD 


ER61+22»97»» 


LOAD 


03774 


25 


10011 


00097 


03500 


TD 


ER61+24»98f t 


CYL NO. 


03786 


25 


10013 


00098 


03510 


BTM 


ETtER61»» 


BRCH»LOAD ER T/0 


03798 


17 


07888 


-9969 


03520 


B 


IC2t • » 


TRY AGAIN 


03810 


49 


03486 


00000 


03530* 
















03540* 


WRITE TRACKS ON 


CYL 3 










03550* 
















03560 <3 


TFM 


S2+8»020»9» 


INIT SCT CNT 


03822 


16 


12112 


00-20 


03570 


TD 


Al+lf99999»» 


LOAD HD DIG 


03834 


25 


12310 


99999 


03580 


AM 


*~lflO»f 


UPDATE 


03846 


11 


03845 


-0010 


03590 IC4 


WN 


SltOU702»i 


WRITE 20 SECT 


03858 


36 


12090 


00702 


03600 


BNI 


♦484»01900»f 


ANY DATA CHECK 


03870 


47 


03954 


01900 
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03610 


TFM 


ERR + 18»IC5t» 


LOAD RETURN 


03882 


16 


07198 


-4230 


03620 


55 


*+36»Al+2001» • 


CK FOR GM 


03894 


55 


039 30 


14310 


03630 


TFM 


El-»-6»ER3» f 


LOAD ER T/0 


03906 


16 


07642 


-8695 


03640 


B 


ERR»» » 


GO TO ER ROUT 


03918 


49 


07180 


00000 


03650 


TFM 


El+6»ER3G»t 


LOAD ER T/O 


03930 


16 


07642 


-9311 


03660 


B 


ERR » ♦ » 


GO TO ER ROUT 


03942 


49 


07180 


00000 


03670* 
















03680* 


READ BACK CHECK 












03690» 
















03700 Ko 


RN 


SI » 00703 »» 


KU ON \.K 


n c> Q A 


A A 


1 PAOA 
1 7U 


A A 7 

00 (Qi 


03 f 1 0 


BNI 


*+84»01900» » 




\JjyOO 


A.7 


AAA c;n 


A 1 OA A 




TFM 


ERR+18»K5f » 


LOAD RETURN 


\j J y t o 


1 A 


n 7 1 QH 

Vj f X 7 o 


— A P A 

H t J U 


03730 


55 


* + 36»Al + 2001» » 


CK FOR GM 




0 J 




1 A 'A 1 A 


03740 


TFM 


E1+6.ER4, » 


LOAD ER T/O 


04002 


1 c 
1 D 


r> "7 C A 1 

0 ' d4^ 


— O (31 


037 50 


B 


.ERR»»» 


GO TO ER ROUT 




A Q 

*f y 


/-J 7 1 a A 
U ' X O U 


A A A A A 

0000 0 


03760 


TFM 


El+6»ER4Gf» 


LOAD ER T/O 


040^0 


io 


0 » 04ll 


— QIAO 


03770 


B 


ERR>»» 


GO TO ER ROUT 


04038 


A Q 

4" 


0 f xoO 


^ ^ f\ f\ ^ 

00000 


03780* 
















03790* 


READ DATA INTO AREA A2 










03800* 
















03810 K7 


RN 


S2»00702»» 


RD 20 SECT 


040i^u 


■* A 


1 J 1 nA 
lei U4 


A A 7 A P- 

UO ' Ot 


03820 


BNI 


* + 84,Ol900» » 


ANY DATA CK 


0406<i 


A "7 




A 1 O A A 

0 xVOO 


03830 


TFM 


ERR+18.K5»» 


LOAD RETURN 


04074 


16 


0 ' i V o 


— /. ^ ^ A 

— 4^30 


0 3840 


55 


* + 36fA2 + 2U01 f * 


CK FOR GM 




D -> 


AA 1 5 'J 


1 A A 1 5 


O3850 


TFM 


E1+6»ER6G»» 


LOAD ER T/O 


04098 


i O 


r\~1 'J 

0 » o4^: 


— 73o5 


03860 


B 


cRR» f ♦ 


BRCH TO ER ROUT 


041 10 


49 


07180 


00000 


038 70 


TFM 


E1 + 6»ER66M» » 


LOAD ER T/O 


04122 


1 6 


0764 2 


-941 5 


0 38 80 


B 


ERR»»» 


GO TO ER ROUT 


04134 


49 


07 ibO 


00000 


03890* 
















0 3900* 


PROGRAM COMPARE OF DATA READ 










03910* 


WITH DATA THAT WAS WRITTEN 










03920* 
















03930 


SF 


Al+1»»» 


SET FLAG 


HA 1 A A 


3 C 


X c J i U 


A A A A A 


f \ G /i n 


SF 


A2+1 » ♦ ♦ 


SET FLAG 


f1 A 1 

V *♦ X o 




1 44 1 2 

X ^ ^ X 


A AAA A 


A "a Q «» n 
u :> 7 i> u 


C 


Al+2QOO,A2+2000,>COMPARE DATA 


OA 1 7n 




X *+ ^ U " 


1 A A 1 1 
X O X X 


n Q A n 


BE 


K5 » » » 


BRCH IF EQUAL 


04182 


46 


n42 3 n 


0120 0 


U J 7 f u 


TFM 


ERR+18»K5»» 


LOAD RETURN 


04194 




07198 


■-4230 

c ^ w 




TFM 


E1+6»ER6», 


LOAD ER T/O 


r> A^ A A 
\j •+ 1 u o 


1 A 


n 7 ^4^ 


O O -> 




BTM 


ET0»ER7»» 


BRCH»LOAD ER T/O 


\J 't C i. O 


1 7 
X • 


n7 s b p 


— 8 R A 1 

O O D X 




CM 


Sl+5»00780»» 


CK DONE 


nA5 'An 


1 L. 
X t 


X c\j y J 


~ A 7ft A 




BE 


*+48 ♦ » » 


BRCH IF DONE 




Zl A 


o A, /! V n 

V/ •+ t- 7 V/ 


0 1 P AO 
w X <^ U U 


V H V £ W 


AM 


Sl+5»20,, 


UPDATE 


nA?'S4 

U *r c P *+ 


1 1 
X X 


X t U " 


— OO P 0 
U u ^ u 




AM 


S2+5»20»» 


UPDATE 


OA5 A A 


X X 


1 ? 1 AQ 


— OOP o 


n A n A n 


B 


K3+12»»» 


NEXT HEAD 




AO 
•+ y 


U J 0 5 H 


ooo aO 


■U «f v 3 U 


TFM 


53 + 5»00600» » 


I NIT SECTOR ADRS 


nit J on 

U *+ t. 7 u 


1 A 
X o 


X <• X £ 


— A A AO 


0*f UoU 


WN 


S3»00702»» 


RESET CYL. 3 


U4 J U t 


J O 


X <L X X o 


A A 7 A P 


04070 


RN 


S3»00703» . 


READ BACK COMPARE 


04314 


36 


12118 


00703 


04080 


BNI 


*+60»1900»» 


ANY DATA CHECK 


04326 


47 


0^386 


01900 


04090 


TFM 


ERR+18»*+48o 


LOAD RETURN 


04338 


16 


07198 


-4386 


04100 


TFM 


E14-6»ER9,» 


LOAD ER T/O 


04350 


16 


07642 


-8903 


04110 


TF 


S2+5»S3+5»» 


STORE SCTR ADRS 


04362 


26 


12109 


12123 


04120 


e 


ERR»»» 


GO TO ER SUBROUT 


04374 


49 


07180 


00000 


04130 


AM 


S3+5»20»t 


UPDATE SCTR ADRS 


04386 


11 


12123 


-0020 
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04140 


CM 


S3+5»00800» • 


CHK DONE 


04150 


BNE 


*-108»»» 


BRCH IF NOT 


04160 


55 


*+24»Al+2001» f C< FOR GM 


04170 


B 


K9t». 


BRCH DONE 


04180 


TO 


Al + 2001»GMt » 


INSERT GM 


04190 


TO 


A2+2001fGM»» 


INSERT GM 


04200 


TDM 


IC4+llf00»t 


CHANGE INST 


04210 


TDM 


K6-Ml«01>f 


FOR 


U4220 


TDM 


K7+11 »00»» 


WLR C< 


04230 


B 


K8»»» 


TRY WITH WLR CK 


U4240 IC9 


TFM 


S+6»*» » 


LOAD RESTART 


04250 


BC2 


<2f»t 


SW 2 ON LOOP 


04260* 








04270» 


THIS ROUTINE CHECKS THAT 


04280* 


OVFLO AND WLR CK 


WILL TURN ON 


04290* 








04300* 


OVERFLOW 




0-+310* 








04320 F2 


BNI 


*+24»01900. • 


ANY DATA CHECK 


04330 


BTM 


RS»« t , 


RESET IND 


04340 


TFM 


S2+8»021»9» 


INIT SECT CNT 


04350 


TFM 


S2+5. 00780, , 


INIT SUB-INST 


04360 


RN 


S2>00702» » 


RD 21 SECTORS 


04370 


BNI 


* + 48 » 03900 » » 


CK ANY FILE IND 


04380 


BI 


Fl»03800»» 


CK OVFLO IND 


04390 


BTM 


ET»ER62» » 


BRCH, LOAD ER T/0 


04400 


B 


Fl»,f 


BRCH-NEXT ROUT 


04410 


BI 


♦ ■»-36»03800» » 


CK OVFLOW 


04420 


BTM 


ET,ER71»» 


BRCH, LOAD ER T/O 


04430 


B 


Fl»»» 


BRCH-NtXT ROUT 


04440 


BTM 


ET»ER72»» 


BRCH»LOAD ER T/O 


04450* 








04460* 


WLR CK VIA RD BK 


COMP ER 


04470* 








04480 Fl 


BNI 


♦+24»01900, * 


ANY DATA CHECK 


04490 


BTM 


RS»*» . 


RESET IND 


04500 F12 


TFM 


Sl+8»001,9» 


INITIALIZE 


04510 


TFM 


Sl + 5»00600» » 


INITIALIZE 


04520 


TDM 


Al+1»00»» 


CLEAR DIGIT 


04530 


WN 


Sl»00702»» 


WRITE SECTOR 


04540 


TDM 


A1+1»C1.. 


CHANGE DIGIT 


04550 


RN 


Sl»00703»» 


RD BK CK 


04560 


BNI 


*+48 » 03900 » • 


CK ANY FILE IND 


04570 


BI 


F3.03700» 1 


WLR CK IND 


u4580 


BTM 


ET»ER63» , 


BRCH, LOAD ER T/O 


04590 


B 


F3,», 


BRCH-NEXT ROUT 


04600 


BI 


*+36»03700» » 


CK WLR IND 


04610 


BTM 


ET»ER73»» 


BRCH, LOAD ER T/O 


04620 


B 


F 3 1 » f 


BRCH-NEXT ROUT 


04630 


BTM 


ET»ER74,, 


BRCHtLOAD ER T/O 


04640* 








04650* 


WLR CK VIA LATE 


TERM OF GM 


04660* 









04398 


14 


12123 


-0800 


04410 


47 


04302 


01200 


04422 


55 


04446 


14310 


04434 


49 


04518 


00000 


04446 


25 


14310 


11655 


04458 


25 


16412 


11655 


04470 


15 


03869 


00000 


04482 


15 


03965 


OOOOl 


04494 




04061 


00000 


04506 


49 


03558 


00000 


04518 


16 


00408 


-4518 


04530 


46 


03486 


0020O 


04542 


47 


04566 


01900 


O^b'^ '■ 


17 


07744 


-4554 


04bb6 


16 


12112 


00-21 


04578 


16 


12109 


-0780 


04590 


36 


12104 


00702 


04602 


47 


04650 


03900 


04614 


46 


04698 


03800 


Uhd t o 


i r 


n 7 H M o 




04638 


49 


04698 


00000 


04650 


46 


04686 


03800 


04662 


17 


07856 


J0715 


04674 


49 


04698 


00000 


04686 


17 


07888 


J0773 


04698 


47 


0472 2 


01900 


04710 


17 


07744 


-4710 


04722 


16 


12098 


00-01 


04734 


16 


12095 


-0600 


04746 


15 


12310 


00000 


04758 


38 


12090 


00702 


04770 


15 


12310 


00001 


04782 


36 


12090 


00703 


04794 


47 


04842 


03900 


04806 


46 


04890 


03700 


04818 


17 


07888 


J0099 


04830 


49 


04890 


00000 


04842 


46 


04878 


03700 


04854 


17 


07888 


J0829 


04866 


49 


04890 


00000 


04878 


17 


07888 


J0863 
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u »f O 7 U r 3 


Q M T 
DIM I 


* T *t » U 1 7 u u » > 


AMY DATA C\C 
MINT L/M I M 




47 


n49 1 4 

y 7 J, "T 


O 1 900 
U X 7 u y 


04680 


BTM 


RS »* » » 




A 4 Q A > 
U*r 7 VJ t 


1 r 


A7744 


<^AQ A J 
*t 7U t 


."^ y ii. n A 

UHoyO 


TFM 


S2+8»001»9» 


t M t T c F r T 


049 1 4 


1 A 

X D 


121 12 

X £• X X ^ . 


00~0 1 


04 700 


TFM 


S2+5»00600» » 


1 IN 1 1 ouo 1 no 1 


n40^ A 
V ^ 7 o 


1 A 
X o 


1 2 1 nQ 

X <• X VJ 7 


— OAOO 


04710 


TD 


A2+102»GM»» 


T MCCTD T riM 

1 NoCK 1 vjM 


O AQ "3 ft 

\J*f750 


7 5 


1 A «i 1 -a 


1 1 A 5 5 
X X D 7 7 


04720 


RN 


S2 » 00700 »» 


on A cPr^TrtD 


04Q 1^ O 


^ A 


1 2 1 n4 

X *• X y "T 


o ri 7 o o 


04730 


BI 


F4»03700»t 


WLK v,i\ i riU 


W H 7 O (t 


4A 


A4Q A 
y H 7 o o 


0*^700 


04740 


BTM 


ET.ER64,, 


DKLn»LUAU tK i/v 


A4Q 7 4 


1 7 


U 1 o o o 


Jo 1 7 5 


U t r P w " 
















n 4 7 A n # 


WLR CK VIA EARLY 


TERM OF GM 










n /i 7 7 n » 


















TDM 


A2+102»00»» 


CL GM 


04986 


1 5 


14513 


00000 

V W W V/ V 


04790 


TD 


A2+100»GM,, 


LOAD GM 


\J *r 7 7 O 


? 5 

C J 


14511 

X H" ^ X A 


11655 


04800 


RN 


S2»00700» » 


RD A SCTR 


A 1 A 


^ A 


1 ? 1 04 
X <C X u*+ 


OO 700 


u 4o 1 U 


BI 


F14t03700» » 


CK WLR IND 


05022 


46 


05046 


03700 


. y. O ^ 

J 4 0 2 0 


BTM 


ET»ER68»» 


BRCHtLOAD EK T/0 


O S O 4 

\J jyj 


1 7 

X f 


07888 


JO 52 3 


A A Q n » 
















W *T *.> *T V/ 


WLR CK VIA CORRECT TERM OF GM 










W *T O W " 


1, 














04860 F14 


TDM 


A2 + 100»00» » 


CL GM 


0504f. 


15 


14511 


00000 


^4870 


TD 


A2+101fGM,» 


INSERT GM 


05 Ot/- 


25 


14512 


11655 


J4880 


RN 


S2 ♦U0700» » 


READ A SECTOR 


05070 


36 


12104 


00700 


J489C 

V "T \J ^ \J 


BNI 


* + 24»03700» • 


CK WLR IND 


05082 


47 


05106 


03700 


U49C0 


BTM 


ET»tK67» » 


BRCHfLOAD ER T/O 


05094 


17 


07888 


J0443 


■ i 4 Q 0 1 * 
















f ^ 4 C3 n 7 # 
VJ H 7 U t ^ 


CH^CK THAT A GROUP MARK (GM) 










U *f > VJ J " 


IN 


THE DATA (1 SECTOR) ON THE 










i' A O n /> ji- 


DISK WILL TERMINATE DATA TRANSFER 










■' 1 A Q A 4(' 


FROM DISK TO CORE 


STORAGE 










O Q n A * 
















A A Q f 'l 7 


TD 


A1+8 5,6M 




05106 


25 


12394 


1 1655 


; \ /, Q A O 


TFM 


Sl+5»600,» 


INITIALIZE 


051 18 


16 


12095 


-0600 


r i Zl Q 0 0 


TFM 


Sl+8»001»9 




05130 


16 


12098 


00-01 


W H y J. w 


WN 


SI •00702 »t 


WRITE DATA AND GM 


05142 


3 8 


12090 


00702 


n4Q 1 n 


TDM 


Al+85,8 




05154 


15 


12394 


Q00Q8 

W W V V V/ 


*♦ 7 J X 


SF 


*+19 




05166 


32 


05185 


00000 

V V V/ w V 


n A oil 


TFM 


A2+88»U», 


SET RO AREA TO RM 


\J ^ X. t \J 


16 


14499 


-0000 


n A Q 1 "3 

U47 1 <; 


DC 


01,«»* 




05 1 flO 

U X O 7 


00001 




A Q 1 A 
CI »♦ 7 I, *♦ 


DC 


01»»»*-1 




05188 

V A o o 


00001 




A A Q 1 K 
U 47 1 0 


DC 


01 » • »*-2 




O 5 1 ft 7 


00001 




A A Q 1 A 


DC 


01»'»*-3 




051 RA 


00001 




A A Q 1 7 


DC 


01»»»*-4 




0 518 5 


00001 




1 1 4 Q 1 7 


RN 


S2t700» » 


READ DATA 


05190 


36 


12104 


00700 


O40 17 
U *f 7 i / 


BNR 


GMEl»A2+88 




0 S 7 0 ? 

\J ^ \J c 


45 


05262 


X4499 




BNR 


GMEl fA2+87t • 


CMK FOR RM 


05214 


45 


05262 


14498 


049?0 


BNR 


GMEl »A2+86 




05226 


45 


05262 


14497 


04921 


55 


GME2»A2+B5»» 


CHK FOR GM 


05238 


55 


05286 


14496 


04922 


B 


*-»-48 




05250 


49 


05298 


00000 


04923 6ME1 


BTM 


ET»ER90 




05262 


17 


07888 


J 123 7 


04924 


B 


*-36 




05274 


49 


05238 


00000 


04925 GME2 


BTM 


ETtER91 




05286 


17 


07888 


J1379 


04930 


BI 


*+24f3700 




05298 


46 


05322 


03700 


04932 


BTM 


ET»ER92 




05310 


17 


07888 


J1511 
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049 34 


BNI 


*+24.l900 




05322 


47 


05346 


01900 


04936 


BTM 


RS.* 




05334 


17 


07744 


-5334 


04910* 
















04920* 


CHECK THAT ADDRESS CK IND 










04930* 


36 


WILL TURN ON ANY FILE 










04940* 
















04950 


BNI 


*+24»01900»» 


ANY DATA CK 


05346 


47 


05370 


01900 


04960 


BTM 


RS»*»» 


RESET IND 


05358 


17 


07744 


-5358 


04970 


TFM 


S2 + 5»00000t » 


INITIALIZE 


05370 


16 


12109 


-0000 


04980 


RN 


S2»00702» • 


READ SCTR 


05382 


36 


12104 


00702 


04990 


BNI 


*+48»03900» » 


ANY FILE CK 


05394 


47 


05442 


03900 


05000 


BI 


*+84»03600» » 


ADRS CK 


05406 


46 


05490 


03600 


05010 


BTM 


ET»ER52»» 


BRCHfLOAD ER T/0 


05418 


17 


07888 


-9555 


J5020 


B 


*-»-60» « ♦ 


NEXT ROUTINE 


05430 


49 


05490 


00000 


05030 


BI 


* + 36»0360G» » 


ADRS CK 


05442 


46 


05478 


03600 


05^40 


BTM 


ET»ER75»» 


BRCH,LOAD ER T/0 


05454 


17 


07888 


J0935 


05o5u 


B 


*+24»,» 


NEXT ROUTINE 


05466 


49 


05490 


00000 


05060 


BTM 


ET»ER76f» 


BRCH,LDAD ER T/O 


05478 


17 


07888 


J0991 


05O7O* 
















u 5 *j 8 0* 


CK 


THAT ANY FILE 


TURNS 










w'5u90* 


ON 


ANY DATA CHECK 


19 










05100* 


ADRS CK IND MUST 


TURN ON 










05110* 


ANY FILE CHECK 39 












05120* 
















05130 


BNI 


* + 24»01900» » 


ANY DATA CK 


05490 


47 


05514 


01900 


05140 


BTM 


RS»*.» 


RESET IND 


05502 


17 


07744 


-5502 


05150 


TFM 


S2+5t0000O» » 


INITIALIZE 


05514 


16 


12109 


-0000 


05160 


RN 


S2t00702,» 


READ SCTR 


05526 


36 


12104 


00702 


05170 


BNI 


*+72f0l900» » 


ANY DATA CK 


0553b 


47 


05610 


01900 


05180 


BNI 


*+36»03900» ♦ 


ANY FILE 


05550 


47 


05586 


03900 


05190 


BI 


*+12»03600»» 


RESET ADRS CK 


05562 


46 


05574 


03600 


05200 


B 


F15»». 


bRCH-NEXT ROUT 


05574 


49 


05670 


00000 


05210 


BTM 


ET»ER77»» 


BRCHfLOAD ER T/0 


05586 


17 


07888 


J1045 


O5220 


B 


F15»»» 


BRCH-NEXT ROUT 


05598 


49 


05670 


odooo 


05230 


BNI 


*+36»0390O»» 


ANY FILE CK 


05610 


47 


05646 


03900 


05240 


BTM 


ET,ER78». 


BRCH»LOAD ER T/O 


05622 


17 


07888 


J1095 


05250 


B 


*+24» » ♦ 


BYPASS 


05634 


49 


05658 


ooooc 


05260 


BTM 


ET.ER79»» 


BRCHFLOAD ER T/0 


05646 


17 


07888 


Jil45 


05270 


BI 


*+12»03600»» 


RESET ADRS CK 


05658 


46 


05670 


03600 


05280 F15 


TFM 


S+6»*» » 


LOAD RESTART 


05670 


16 


00406 


-5670 


05290 


BC2 


F2t»« 


SW2 ON LOOP 


05682 


46 


0454<; 


00200 


05300* 
















05310* 


Put 


• FLG ADRS AND 


AN ADRS NOT 










05320* 


INCREMENTED BY ONE ON A TK 










05330* 
















05340 F16 


BNR 


F5.TSM»» 


CK FOR RM 


05694 


45 


06186 


11673 


05350 


TFM 


S2+5»00600f» 


I NIT SUB-INST 


05706 


16 


12109 


-0600 


05360 


TFM 


S2'i>8*020f9f 


INIT SECT CNT 


05718 


16 


12112 


00-20 


05370 


RN 


S2» 00706 »f 


READ TRACK 


05730 


36 


12104 


00706 


05380 


SF 


A2+l»»» 


SET FLAG 


05742 


32 


14412 


oooob 


05390 


TDM 


A2+215t03«* 


ADD ONE TO ADRS 


05754 


15 


14626 


00003 


05400 


RCTY 


♦ » » 


RET CARR 


05766 


34 


00000 


00102 


05410 


WATY 




TYPE ADRS SW ON 


05778 


39 


08427 


00100 
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05^20 


H 


» ♦ ♦ 




HALT 


05430 


WN 


S2. 00706, » 




WRITE TRACK 


05440 


RCTY 


» » * 




RET CARR 


05450 


WATY 


T8»f, 




TYPE OFF 


05460 


H 


• » f 




HALT 


05470* 










05480* 


WR] 


TE ON FLAGGED 


SECTOR ADDRESS 


05490* 










c\ a c n ''\ 
0 5 50 J 


DMT 


*+24»01900, 




R (i 1 


BTM 


RS»*» » 




RESET IND 


/ Mi R "3 n 

U 7 7 <: u 


TFM 


Sl+5»00600, 




INITIALIZE 


f\ ti e, 1 r\ 
U I? 5 30 


TFM 


Sl + 8 »0U1 »9» 




INITIALIZE 


05 540 


WN 


SI »00702» » 




WRITE SECTOR 


05550 


BI 


F6»03600» » 




ADRS CK IND 


05560 


BTM 


ET»ER65»» 




BRCH»LOAD ER T/O 


05570* 










05 580* 


READ SECT ADRS 


NOT INCR BY ONE 


05590* 










05600 F6 


BNI 


*+24»019C0» 


• 


ANY DATA CK 


05610 


BTM 


RS»*» » 




RESET IND 


05620 


TFM 


S2+5»006UO» 


> 


INITIALIZE 


0 56 30 


TFM 


S2+8»003» » 




INITIALIZE 


\- 5640 


RN 


S2»''-iU7N^2» » 




READ SECTORS 


U5650 


BI 


F7,O3b00» » 




ADRS CK IND 


05660 


BTM 


ET »ER66» t 




dRCH,LOAD EK T/O 


05670 F7 


TFM 


S2+5»00600, 


♦ ■ 


INIT 


05680 


TFM 


S2+8»020»9» 




INIT 


05690 


RN 


S2»0C706» • 




READ TRACK 


05700 


CF 


A2+1 ♦ ♦ » 




CLEAR FLAG 


0 5 7 10 


TDM 


A2 + 215,02» » 




SUB. ONE FROM AD 


' '■ ft "7 "5 

w 5 J ZO 


RCTY 


» » » 




RET CARR 


0 57 30 


WATY 


T17» , » 




TYPE SW ON 


K. "7 A r> 

Up /40 


H 


» • » 




HALT 


r 1 ft "7 ft n 


WN 


S2»00706, » 




• WRITE TRACK 


r\ ft "7 n 
0 D f 60 


RCTY 


» » » 




RET CARR 


, > t 7 7 rj 


WATY 


T18»»» 




TYPE OFF 


n ft "7 Q f > 


H 


• » » 




HALT 


05790 


TFM 


S+6»*» » 




LOAD RESTART 


r\ ft Q A r» 


BC2 


F16.»» 




SW 2 ON LOOP 












r> C Q O 

058 20* 


TEST COMPLETE 


ROUTINES 


o ft n 1 n« 

u P 0 5 










1 < ft Q /. rt c ft 


BC4 


Ju , ♦ ♦ 




SW 4 ON LOOP BK 


05850 


BNCl 


*+48» » 9 




SW 1 OFF BYPASS 


05860 


BNR 


*+36»ERM» , 




CK FOR RM IN MAP 


058 70 


RCTY 


» ♦ » 




RETURN CARRIAGt 


05880 


WATY 


ER30» •» 




TYPE ER OCCURRED 


05890 


RCTY 


♦ » » 




RETURN CARRIAGE 


05900 


WATY 


T10f»» 




TEST COMPLETED 


05910 


RCTY 


, * f 




RETURNCARRIAGE 


05920 


TFM 


S+6»S+12»» 




LOAD RESTART 


05930 


H 


» ♦ » 




HALT 


05940 


B 


S » • » 




RESTART TEST 



05790 


48 


OOOOO 


OOOOO 


05802 


38 


12 104 


00706 


05814 


34 


OOOOO 


00102 


05826 


39 


08519' 


OOlOO 


05838 


48 


OOOOO 


OOOOO 


05850 


47 


05874 


01900 


05862 


17 


07744 


-P062 


05874 


16 


12095 


-0600 


\j ^ w w \J 


i h 
X yj 


X V/ ' w 


00-0 1 


U P 0 7 0 


J 0 


1 P A 0 A 


UU 1 U A 


n ft Q 1 A 

0 P 7 1 u 


to 




A "31 AAA 
U P ou U 


n n o s> 5 


1 7 


n 7RR A 


1 A P ftO 
«;U A P 7 


A Q A /. 
U -> 7 J ^ 




A k 0 <^ U 
0 P -7 P 0 


A 1 Q A A 
U i 7 0 U 


r> ft Q /. * 


1 7 


{J ' ' 


^ K 0 A A 


U P 7 J 


1 A 


1 ^ 1 AO 
X C X U 7 


— A AAO 
V/ u V V 


A ft Q 7 A 
U P 7 < U 


1 0 


1 P 1 1 
1 ^ i i <1 


— A A A ^ 

U L. U P 


A ft Q G J 

U P V O 


3 6 




/-v 7 A 'J 
UU ' 0 A 


A ft Q O i^i 


A 


A A A i rt 
u 0 U i 0 


A 1 f-^ A n 

U J 0 U u 


A A A 




A 7 M M K 
(J » 0 0 0 


1 A J /a 

JU P*+ P 


06018 


1 6 


12 109 


A ^ A A 

~OdOO 


n A A 
U D U 5 U 


1 A 
1 0 




A A _ ? n 


06042 


36 


121 04 


A A "7 A ^ 

00 f 06 


060^4 




X '+ *♦ X t 


A A A A A 

UUUuU 


A AAA A 
U O U O O 


X P 


X *♦ 0 1 0 


A Ann? 

U U w U A 


n AO 7M 






V U X U A 


06090 


39 


08597 


00100 


06102 


48 


OOOOO 


OOOOO 


06114 


3tt 


12104 


00706 


06i<l6 


34 


OOOOO 


00102 


V w X «/ o 


*/ 7 


nB6 1 5 


A A 1 A A 


\J \J X J \J 


u. R 


A AA AA 
U v/Vj W VJ 


nnnno 




1 A 


A Ail AW 


— A 1 A P 
0 X 0 A 


Ail 7/. 


/•.A 


\J P 0 7 H 


A A P A A 


OA IRA 


6. A 


U V 7 y w 


A A4A A 
w w ^ w w 


A A 1 OR 


L. 7 


r\ f\ y L. f\ 
yjQt. 'TO 


A A 1 A A 
W VJ X U w 


n A p 1 n 


*+ P 


\jO £ *t 0 


1 1 AS7 

X X y a/ 1 


A A P P P 




vJUUUU 


A A 1 A P 
Uw XU A 


06234 


39 


09223 


00 100 


06246 


34 


OOOOO 


00102 


06258 


39 


08565 


00100 


06270 


34 


OOOOO 


00102 


06282 


16 


00408 


-0414 


06294 


46 


OOOOO 


OOOOO 


06306 


49 


00402 


OOOOO 
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06010* 














06020* 


THIS ROUTINE READS AND 










06030* 


CHECKS THE SECTOR 


ADDRESSES 










06040* 


ON A CYLINDER OF 


THE DISK PACS 










060 50* 














06060* 


BRANCH TO MAINLINE PROGRAM 










06070* 


TO REQUEST MOO. NO 


• AND INSERT 










06080* 


DRIVE CODE IN SUBINST. 










06090* 














06100 


TDM N0PAD+1»9»» 


NOP TO B 


06318 


15 


00883 


00009 


U6110 


B SADlvt* 




06330 


49 


00750 


00000 


06120* 














06130* 


REQUEST CYLINDER 


NUMBER 










06140* 


AND ADDRESS RANGE 












06150* 














06160 SAD 


RCTY 




06342 


34 


00000 


00102 


06230 


TDM NOPA0+ltl»» 


INSURE NOP 


06354 


15 


00863 


00001 


06170 


WATY SAD2»»» 


REQUEST DATA 


06366 


39 


070 71 


00100 


06180 


RNTY CNAR»»» 


ACCEPT 


06378 


36 


07153 


OOlOO 


U6190 


BC3 *-12»f» 


OOPS SW 


06390 


46 


06378 


00300 


06200* 


COMPUTE SECTOR ADDRESS 










07010 SAD6 


TFM S2+5»0» 




06402 


16 


12109 


-0000 


07020 


A S2+3»CNAR+lt» 


DOUBLE 


06414 


2 1 


12107 


07154 


07030 


A S2+3»CNAR+1 , , 


CYL.NO. 


06426 


2 1 


12107 


07154 


07040 


TD SAD3-2»CNAR-»-2» 


» 


06438 


25 


06472 


07155 


07050 


SF 3AD3-2. 




06450 


32 


06472 


00000 


07060 


AM S2+2»00»10» 


ADD (20000) X SCTR RNG 


06462 


1 1 


12106 


000-0 


07070 SAD3 


A S2+2»SAD3-lf • 




06474 


2 1 


12106 


06473 


07075 


TF S3+5»S2+5»f 


STORE BEGIN ADRS 


06486 


26 


12123 


12 109 


07076 


AM S3+5»200»9t 


ADD FOR LAST ADRS 


06498 


1 1 


12123 


OOKOO 


07o77 


TDM I9994»0»llt 




06510 


1 5 


19994 


OOOO"" 


07080* 














07090* 


SEEK CYLINDER 












07100* 














07110 


K S2 » 00701 ♦» 


SEEK CYL. 


06522 


34 


12104 


00701 


07120* 














07130* 


READ TRACK 












07135* 














07140 SA05 


RN S2»00706»» 


READ FULL TRACK 


06534 


36 


12104 


00706 


07150 


BNI *+24»1900»» 


ANY DATA CHK 


06546 


4 7 


06570 


01900 


07160 


BTM RS»*»» 


GO TURN OFF I NO 


06658 


17 


07 744 


— 6p5o 


07170* 














07180* 


INITIALIZE 












07190* 














08010 


TFM ISl+11 ♦A2+1 , , 


IN 


06570 


16 


06641 


J4412 


08020 


TFM IS2+ll»A2+2,, 


IT 


06582 


16 


06653 


J4413 


08030 


TFM IS3+ll»A2+3tt 


lA 


06594 


16 


06665 


J4414 


08040 


TFM rS4+ll»A2+4>» 


LI 


06606 


16 


06677 


J4415 


08050 


TFM IS5+llf A2+5»» 


ZE 


06618 


16 


06689 


J4416 


08080* 


INSERT SECTOR ADORES 










08090 I Si 


TD 19995, 99999»» 


INSERT 


06630 


25 


19995 


99999 


08100 IS2 


TD 19996»9999Vf » 


SECTOR 


06642 


2 5 


19996 


99999 


OailO IS3 


TD 19997, 99999»» 


ADDRESS 


66654 


25 


19997 


99999 
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08120 154 ■ 


TO 


19998»99999» » 




06666 


25 


19998 


99999 


08130 1S5 


TD 


19999t99999»t 




06678 


25 


19999 


999^9 


08145* 


COMPARE SECTOR ADDRESSES 










12345 


BI 


SAER»01600»> 


EVEN CHK 


06690 


46 


06810 


OI6OO 


12345 


BI 


SAER»01700.» 


ODD CH< 


06702 


46 


06810 


01700 


00123 


TFM 


*+23»19995»» 


I NIT 


06714 


16 


06737 


J9995 


00123 


BNR 


*+24»99999#» 


CHK FOR RMfGM 


06726 


45 


06750 


99999 


00123 


B 


SAER»»f 


ER T/0 


06738 


49 


06810 


00000 


00123 


AM 


*-13t01tl0t 




06750 


1?. 


06737 


OOOr-1 


0U123 


CM 


*-25»20000»t 


CHK DONE 


06762 


14 


06737 


KOOOO 


OU123 


BNE 


*-48»»» 




06774 


47 


06726 


01200 


08150 


C 


19999»S2+5 




06786 


24 


19999 


12109 


08160 


BE 


SAD4 




06798 


46 


0691b 


01200 


08170 SAER 


TR 


00100tTAB»> 


REPLACE MATH TAB 


06810 


31 


00100 


11786 


08180 


BNI 


»+24»1900» f 


ANY DATA CHK 


06822 


47 


06846 


01900 


08190 


BTM 


RS»*»» 


TURN OFF IND 


06834 


17 


07744 


-6834 


08200 


RCTY 






06 846 


34 


00000 


00102 


08210 


DNTY 


19995»»» 


DUMP ADDRESS 


06858 


35 


19995 


pOlOO 


08220 


WATY 


S/B» » » 


TYPE S/B 


06870 


39 


07159 


oolbo 


08230 


TF 


SBTOB ,52+5 »» 




0688? 


26 


07178 


12109 


08240 


CP 


SBTOB-4 




066 V 


33 


07174 


00000 


U8250 


WNTY 


SBTOB-4* ♦ ♦ 


TYPE S/B APRS 


06906 


38 


07174 


00100 


u901U* 


UPDATE SECTOR ADDRESS TRANSFER 










09020 SAD4 


AM 


IS1+11»105». 




06918 


1 1 


06641 


-0 i 0 5 


09030 


AM 


IS2+I1.105»» 




06930 


1 1 


06653 


-0105 


09040 


AM 


IS3 + 11 .105» » 






1 1 


06665 


-0105 


09O50 


AM 


IS4+11 tlOSt • 




06954 


1 1 


0667 7 


-0105 


09060 


AM 


IS5+ll»105»f 




06966 


1 1 


06689 


-0105 


09070 


AM 


S2+5,01fl0f 




06978 


1 1 


12109 


000-1 


09UV0 


CM 


IS1+11»A2+2101 


»»CHK TK DONE 


06990 


14 


06641 


J6t>12 


09100 


BNE 


IS1»» 




07002 


47 


06630 


01200 


09110 


C 


S2+5»S3+5f» 


CHK CYL. DONE 


07014 


24 


l-£li09 


1212 3 


09120 


BNE 


SAD5f» 




07026 


47 


06534 


01200 


09130 


BC2 


SAD6»»» 


SW 2 ON LOOP 


07038 


46 


06402 


00200 


09150 


H 


» » » 


HALT 


07050 


4b 


00000 


00000 


09160 


B 


S+12»tf 


RUN TEST 


07062 


49 


00414 


00000 




DORG 


*-4 




07069 








10010* 
















10020* 


DATA »CONSTANTS» AND TYPEOUTS 










10030* 
















lu040 SAD2 


DAC 


25»ICEY IN 2 DI&*CYL.NO.AND 1 


07071 


00050 




10050 


DAC 


16 » DIG.ADRS RNG « 


07121 


00032 , 




10060 


DC 


01»0, 




07152 


00001 




10070 CNAR 


DSC 


05*0 




07153 


00005 




10080 S/B 


DAC 


08 » S/B ♦ - 




07159 


00016 




10090 SBTOB 


DC 


05 >0 




07178 


00005 




10100 


DC 






07179 


00001 




05950* 
















05960* 


ERROR SUBROUTINE 












05970* 
















05980 ERR 


BI 


*+24,0l900»t 


ANY DATA CHECK 


07180 


46 


07204 


01900 


05990 


B 


99999»»» 


RETURN TO PROG 


07192 


49 


99999 


00000 


06000 


BNI 


J30fQ3900t» 


ANY FILE CHECK 


07204 


47 


07396 


03900 
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06010 


BNI 


BYSL»03600»» 


ADDRESS CHtCIQ 




/i 7 


A 7 1 "3 A 

0 1 ^ J 0 


A "3 A A A 

03o00 


06020 


CM 


E 1 + 6 • ER8 ft 


WAS Ur A octis 


\j 1 ceo 


1 


A 7 A ? 
U 1 0 *♦ A 


~. A A 0 1 


06030 


D C 

OL 


* + 0 V ♦ » ♦ 


ur<v.n ~ T Co 


U • t *♦ U 


*♦ o 




A 1 7 A A 
W X A U U 


060*»0 


CM 


E J +6 f ER5 » • 


»J A C OD A Dr\ TfcT ■ 
WAo Ur A KU. i N 


n 7 7 c» V 


1 ** 


n7 AZi ? 

VJ 1 OH A 


—A 7 A 7 


06050 


BE 


*+36 ♦ » ♦ 


oKCn ~ Ytb 


U 1 O 


Zi. A 
HO 


7 0 r» A 


A 1 1> A A 
U X AUVJ 


06060 


CM 


E1+6»ER5G»» 


WAS OP A RD In. 


ri TT O 7 A 




A 7 A A J 
0 » 0 H A 


_ U tl A 1 


06070 


BNE 


* + 36 » « » 


BRCH - NO 




4 7 


0 7 3 A 4 


01200 


06080 


TFM 


El+l»41»10» 


CHANG WATY TO NOP 


07300 


16 


07637 


OOOMl 


06090 


BTM 


ET0»ER19t» 


BRCH LOAD ER T/0 


07312 


17 


07552 


-9167 


06100 


BTM 


ET0»ER10t» 


BRCH LOAD ER T/0 


07324 


17 


07552 


-8939 


06110 BYSL 


BNI 


*+24»03700t» 


RECORD LENGTH CK 


07 336 


47 


07360 


03700 


06120 


BTM 


ET0»ER11 » t 


BRCHfLOAD ER T/0 


r\ "7 o y. o 

07348 


1 7 

1 7 


/N 7 t R "J 

075 5 a 


-oVo f 


06130 


BNI 


*+24»03800t » 


OVERFLOW CHECK 


07360 


/■ 7 

47 


/> 7 "3 Q A 

07 384 


03800 


0614P 


BTM 


ET0»ER12 » » 


BRCH»LOAD ER T/O 


"7 ^ "7 O 


1 f 


A 7 t K 'J 


_ Q A Q t 


06 150 


BTM 


ETO* ER 13 t » 


UD^UI 1 A A (■» CT D t t r\ 

DKCn»LUAD C.K i/U 


\J 1 ^ O H- 


•J 7 


n7h Sy* 


AO K 
7 VJ A 


06160 J30 


BNI 


* + 24»00600 » • 


READ CnhLlk 


ri "7 1 a A 


L. 7 


U ' H A U 


AAA A A. 
UUOUU 


06170 


BTM 


ET0»ER14 9 ♦ 


BRCH»LOAD ER T/0 


^ "7 /i f\ Q 


i » 


A 7 C. l-« "P 
0 1 P P A 


_0 A A CI 
— 7O03 


06180 


BNI 


♦ + 24t00 »0U» » 


MK i i t CntCN 


U 1 *+aU 


L. 7 


\) f *r H 


A A 7 A A 


06190 


BTM 


ET0»ER15» » 


BRCHfLOAD'ER T/0 


07432 


1 7 


07 5 52 


—9089 


06200 


BNI 


*+24,01600»» 


MBR-E CHECK 


0744^ 


7 


07468 


01600 


0621.0 


BTM 


ET0»ER16»» 


dRCH»LOAU ER T/0 


A "7 /■ t« A 


1 -7 


A 7 R C, 5 
0 10 P A 


_Q lit* 

— 7 i I P 


06220- 


BNI 


*+24,0170G» > 


MBR-0 CHECK 


07468 


47 


0749 2 


0 1700 


06230 


BTM 


ET0»ER17>» 


BRCHfLOAD ER T/0 


07480 


17 


07552 


-9141 


06240 


BI 


*+12»0800»» 


MAR CHECK 


07492 


46 


07504 


00800 


06250 


BI 


*+12»0210C»» 


TAS CHECK 


07504 


46 




/NOT f\ f\- 

02100 


06260 " 


BI 


*+12»02200f • 


F R CHECK 


07516 


46 


07p2o 


02200 


06270 


BI 


*+12»02300, » 


A 0 CHECK 


O "7 U 

0 / i> A o 


A A 
M- D 


A 7 e% /i A 
0 ' PHO 


A J "a A A 

0 A 300 


06280 


8 


'ERR»». 


LOOP BACK 


r\ "7 U> /, A 

0 ' 5^0 




■ A 7 1 U A 

0 ' 1 0 


A A A A A 

00000 


06290* 
















06300* 


. ERROR TYPE OUT ROUTINE 










06310* 


FOR THE ABOVE ERROR SUBROUTINE 










06320* 
















06340 ETO 


8C1 


Ellf »» 


SW 1 ON BYPASS 


n "7 li ci '} 


A A 


A7A7 V 

U f 0 » A 


A A 1 A A 

uu xuu 


06350 


MM 


S2+5»05»10» 


MULTIPLY 


U f DO** 




1 1) 1 AO 
1 A i U" 


A AA-»ti 
UUU P 


06360 


TO 


ER20+10,95*f 


CYL. NUMBER 


A T C "7 A 

07576 


A P 


AO 'J A 

OV A U P 


A A A Q R 
U0U9 P 


06370 


TD 


ER20 + 12»96» » 


CYL» NUMBER 


A "7 D O 


>> ^ 
A y 


A Q 5 A 7 
U 7 A U ' 


A A A Q A 

0UU7 0 


06380 


Tb 


ER20+24»97» » 


HD NUMBER 


A *7 A A A 

07600 


'J K 
A P 


AO 1> 1 0 


A A A Q 7 


06390 


TF 


E1+18»ET0-1»» 


LOAD ER T/0 


A 7 A 1 > 
U ' O 1 A 


> A 
A 0 


r» 7 A A 


A 7 h 1 
■\J 1 P X 


0640U 


RCTY 


> » • 


RETURN CARRIAGE 


VJ f O A *t 




n f> r\ n <S 


W U X U A 


06410 tl 


WATY 


99999»»t 


TYPE ERROR 


A 7 A 1. A 


•2 Q 




A A 1 A A 




WATY 


99999»»» 


TYPE ERROR 


07648 


39 


99999 


" 00100 

V w X w V 


w O *T J V 


WATY 


ER20»t, 


TYPE ERROR 


07660 


39 


09 19 5 


00100 


Uo4*fU til 


TO 


ERM»RM»» 


PUT RM IN MAP 


V/ f W 1 A 


2 5 


11657 


11654 


06450 


TR 


OOlOOf TAB>« 


REPLACE MATH TAB 


VJ f o o 




A A 1 nn 


1 1 786 

X X f W V 


06460 


TFM 


El+l,39fl0t 


CHNG NOP TO WATY 


A7AQA 






w w V I* ' 


; i e 1..-* A 

U 6 4 / U 


BNC3 


*+24f»» 


SW 3 ON HALT 


A77 Aft 


47 




nn3nQ 


06480 


H 


• t » 


HALT 


07720 


46 


00000 


00000 


06490 


6 


ERR»» f 


SEE IF MORE ERS 


07732 


49 


07180 


00000 


06 500* 
















06510* 


THIS ROUTINE RESETS THE 










06 520* 


INDICATORS THAT TURN 










06530* 


ON 


ANY DATA CHECK 












06540* 
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06560 RS 


BI 


*+12»03600»t ADRS CK 


07744 


46 


07756 


03600 


06570 


BI 


*+12 ♦03700, , WLR CK 


07756 


46 


07768 


03700 


06580 


B I 


*+12»03800»» OVFLO CK 


07768 


46 


07780 


03800 


06590 


BI 


*+12»00600f t READ CK 


07780 


46 


07792 


00600 


06600 


BI 


*+12»0070O»» WRITE CK 


07792 


46 


07804 


00700 


06610 


BI 


*+12 ♦01600. » MBR-E CK 


07804 


46 


07816 


01600 


06620 


BI 


*+12.01700. ♦ MBR-0 CK 


07816 


46 


07828 


01700 


0663U 


BI 


*+12 ♦00800* » MAR CK 


07828 


46 


07840 


00800 


06640 


BI 


*+12*02100»r TAS CK 


07840 


46 


07852 


02100 


06650 


BI 


*+12»02200»» F R CK 


r» "7 Q Ci 1 

07852 


46 


07864 


041^200 


06660 


BI 


*+12f02300f> A 0 CK 


A "7 U /> 




A7V17 


A "3 ^ A A 


06670 


BB 


♦,9 BRCH-BACK 


0 / O » O 




AAA A A 


A A A A A 


06680* 














06690* 


ERROR TYPE OUT ROUTINE FOR 










06700* 


ERRORS DURING MAIN PROGRAM 










06710* 














06730 ET 


BCl 


*+48. ♦ ♦ SWl ON' BYPASS 


A T Q Q Q 
U f O O O 


H D 


7 Q •a A 
0 ' " 5 D 


A A 1 A A 

OU iOU 


06740 


TF 


*+30.*~13.^ LOAD WATY 


07900 


26 


07930 


07887 


06750 


RCTY 


, * ♦ RET CARR 


C\1 Q\ 'J 

\J 1 y Ic 




A A A A O 

uuuuu 


A O 1 A 3 


1^ £. f n 
06760 


WATY 


99999^,^ TYPE ERROR 


U 1 y 




ggogq 


AA 1 An 


T "7 A 


TD 


ERM^RM^. PUT RM IN MAP 


n 7 9 J b 




1 16 b 7 


i 1654 


U6780 


TR 


OOlOOtTAB.. REPLACE MATH TAB 


U 1 7 '+0 






X JL f O V/ 


06 790 


BNC3 


*+24»»t SW3 ON HALT 


\J. 1 7 o u 


ixl 


A70HZ* 
\j 1 y OH 




06600 


H 


♦»» HALT 




4 b 


00000 


Uv wyw 


06810 


BB 

DORG 


♦ ♦ ♦ BRCH-BACK 
*-9 


A "7 ci Q y. 
07984 

f\ r\ Q 

07986 


42 


00000 


A AAA A 

00000 


06820* 














06830* 


DATA»C0NSTANTS»W0RKING AREASt 










06840* 


TYPEOUTStAND ERROR MESSAGES 










06850* 














06860 Tl 


DAC 


14, DT 0022 - 1311 


07987 


00028 




06870 


DAC 


17, FAULT ISOLATION' • 


08015 


00034 




12345 WRCOl 


DAC 


35 .WARNING-REMOVE CUSTOMER DISK PACKS' 


r\ Q /» o 

OoOtV 


00070 




12345 WRCD2 


DAC 


31 .FROM ALL MODULES»TURN SW 3 ON. • 


Oo X 19 


00062 




06880 T2 


DAC 


16^SWITCH SETTINGS* 


Oo lo i 


00032 




u6o9U T3 


DAC 


21^PR0GRAM - AS DESIRED* 


UO ^ X ^ 


00042 




06900 T4 


DAC 


16 ♦DATA PROGRAM* 


A Q '? Ci f» 


00032 




06910 T5 


DAC 


25,KEY IN 1 DIGIT MODULE NO. 


AO IDT 

0o2o / 


00050 




06920 


DAC 


18, DISK PACK IS ON • 


G8337 


00036 




06930 T6 


DAC 


27^CK FLG ADRS^TYPE YES OR NO* 


08373 


00054 




06940 T7 


DAC 


27 ♦TURN WR ADRS SW ON AND COMP 


08427 


00054 




06950 


DAC 


19 ♦ DSBLE SW ON (OUT)* 


0848 1 


00038 




06960 18 


DAC 


23tNOW TURN THEM OFF tINM . 


08519 


00046 




06970 TlO 


DAC 


16, TEST COMPLETED « 


08565 


00032 




Q6980 T17 


DAC 


09, ON AGAIN* 


08597 


00018 




06990 Tlo 


DAC 


ICOFF AGAIN* 




00020 




07000 T3u 


DAC 


22, SW 3 ON FOR CORRECTING 


08635 


00044 




07010 


DAC 


08, KEY IN* 


08679 


00016 




07020* 














07030* 


ERROR MESSAGES 










07040* 














07050 ER3 


DAC 


18, WRITE 20 SCT WLR • 


08695 


00036 




07060 ER4 


DAC 


18, READ BK COMP WLR « 


08731 


00036 
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07070 


ER5 


OAC 


17i 


iREAD TK W/0 WLR • 


08767 


00034 


07080 


ER56 


OAC 


16i 


►RD TK WITH WLR • 


08801 


00032 


0709Q 


ER6 


DAC 


14 


»PROG COMPARE » 


08833 


00028 


07100 


ER7 


DAC 


15 


►DATA NOT EQUAL* 


08861 


00030 


07110 


ER8 


DAC 


06 


►SEEK • 


08891 


00012 


07120 


ER9 


DAC 


16i 


.CYL.3 ZERO RESET • 


08903 


00036 


07130 


ERIO 


DAC 


14, 


. ADS CK (36) ♦ 


08939 


00028 


07140 


ERll 


DAC 


14 


► WLR CK (37) • 


08967 


00028 


07150 


ER12 


DAC 


15 


► OVFO CK ( 38) » 


08995 


00030 


07160 


ER13 


DAC 


19 


► FILE NO IND (39) » 


09025 


00038 


07170 


ER14 


DAC 


13 


» RD CK (06) » 


09063 


00026 


07180 


ER15 


DAC 


13 


► WR CK (07) » 


09089 


00026 


07190 


ER16 


DAC 


13 


► MBR-E (16) » 


09115 


00026 


07200 


ER17 


DAC 


13 


f MBR-0 1 17 ) ' 


■ 09141 


00026 


07210 


ER19 


DAC 


14 


►SELECT LOCK • 


09167 


00028 


07220 


ER20 


DAC 


14 


► CYL 99 HD 9« 


09195 


00028 


07230 


ER30 


DAC 


23, 


►ERROR OCCURRED BUT SW 1 


09223 


00046 


07240 




DAC 


21 


► WAS ON THUS NO ETC. • 


09269 


00042 


07250 


ER3G 


DAC 


19 


►WR 20 SCT W/0 WLR • 


09311 


00038 


07260 


ER4G 


DAC 


18 


►RD BK CK W/0 WLR ' 


093^' 


00036 


07270 


ER6G 


DAC 


15 


►RD 20 SCT ♦ WLR » 


09385 


00030 


07280 


ER6GM 


DAC 


19 


►RD 20 SCT»W/0 WLR ' 


09415 


00038 


07290 


ER5S 


DAC 


21 


►READ SECTOR W/0 WLR • 


09453 


00042 


07300 


ER51 


DAC 


21 


»RD TK,NO ADRSfADRS CK 


09495 


0O042 


07310 




DAC 


09 


► IND OFF' 


09537 


00018 


07320 


ER52 


DAC 
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